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Foreword 



The RCA CDP1801 and CDP1802 COSMAC Microprocessors are 
CMOS 8-bit register-oriented central processing units. They are suit- 
able for use in a wide range of stored-program computer systems and 
products. Often, their applications require extended precision arith- 
metic calculations with possible interfacing of the system to BCD- 
oriented peripheral hardware. For such applications, this Manual 
provides a set of T 6-bit 2's complement arithmetic subroutines de- 
signed to be operated on the RCA COSMAC Microprocessors. 
Versions are supplied for use with either the RCA CDP1801 or 
CDP1802. A suitable selection from this set of subroutines may be 
made for the calculations required in a specific application. 

The subroutines described in this Manual are also available in source 
language on a floppy diskette CDP18S826 for use with the RCA 
Floppy Disk System CDP18S800. 

In this Manual, the 29 Binary Arithmetic Subroutines are described, 
first in general and then in detail. A Standard Call and Return 
Technique for facilitating their use is provided along with complete 
listings. Additionally, BCD-to-binary and binary-to-BCD conversions 
are described. As a tutorial aid, a sample program is also provided. 

Users requiring additional information on the available hardware, 
firmware, and software support systems should refer to the COSMAC 
technical literature. Reference should be made to the device technical 
data sheets and to the following publications: 

MPM-201 User Manual for the RCA CDP1S02 COSMAC 

Microprocessor 

MP.M-202 Timesharing Manual for the RCA CDP1802 COSMAC 

Microprocessor 

MPM-203 Evaluation Kit Manual for the RCA CDP1802 COS- 
MAC Microprocessor 

MPM-208 Operator Manual for the RCA COSMAC Development 
System 

MPM-101 User Manual for the CDP1801 COSMAC Micro- 
processor 

MPM-102 Program Development luide for the CDP1801 COS- 
MAC Microprocessor (Timesharing) 
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inary Arithmetic Subroutines 



Introduction 



3. 16-bit 2's complement Multiplication which yields 32- 
bit result: 1 



The Binary Arithmetic Subroutine Package given in 
this Manual is a set of 16-bit 2's complement arithmetic 
subroutines designed to be operated on a COSMAC 
microprocessor. The subroutines are coded in Level-I 
assembly language and require 1 K-byte of memory space. 
These subroutines do not alter themselves and can be 
stored in Read-Only Memory. Different versions are 
available for the CDP1801 and CDP1802. The subrou- 
tines may be used individually or in any combination. 

Four arithmetic functions are included: 



1. 16-bit 2's complement Addition: 
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2. 16-bit 2's complement Subtraction: 
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4. 32-bit 2's complement Division which yields 16-bit 



result: 
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BCD-to-binary and binary-to-BCD conversions together 
with utility routines (which can be used to save or restore 
the contents of registers) are provided. 
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Binary Arithmetic Subroutines for RCA COSMAC Microprocessors 



Applications 



Basic Conventions 



Various applications of these subroutines are possible. 
For example, a user may enter BCD numbers from 
external devices, manipulate these numbers in 2's 
complement arithmetic functions, and finally output the 
result in BCD form back to external devices. A diagram 
of such an application is given in Fig. 1 . 



(External Devices! 



User's Application 
Program 



COP 180 1 /1 602 Arithmetic j 
Subroutine Package 



Binary 
♦.-."./ 



*.-.-J 
BCD ^± B.nary 



I 



[801/1802 Program 



Fig. 1 — Example of microprocessor system using 
the arithmetic subroutine package. 



It is possible to use the arithmetic function(s) only, 
as diagrammed in Fig. 2, or a combination of these 
subroutines to suit the user's needs. 

CDP1801/1802 Arithmetic 
Subroutine Package 




Fig. 2 - Application using arithmetic functions only. 



All of the subroutines in this package follow the call 
and return conventions described in the User Manual for 
the RCA CDP1802 COSMAC Microprocessor (MPM-20 1 ). 
A stack area in RAM is also implied. Symbolic register 
names are used to permit custom modifications and 
register allocation. The standard registers' definitions and 
their functions are: 



R(SP) = R2 . . The stack pointer. 

R(PC) = R3 . . The program counter used by 
all the subroutines. 

R(CALL) = R4 . . Pointer to CALL routine. 

R(RETN) = R5 . . Pointer to RETURN routine. 

R(L1NK)=R6 .. Pointer to arguments passed 
from main program. 

R(AR) = RA . . Pointer to BCD digits in mem- 
ory. Used in BCD conversion 
routines. 

R(NR)=RB .. Counter for the number of 
BCD digits. Used in BCD con- 
version routines. 

R(CR)=RC . . Scratchpad and counter. Used 
in multiply, divide and others. 

R(MA) = RD . . Pointer to the address ofone 
of the two operands in add, 
subtract, multiply and divide 
operations. 

R(MQ) = RE . . 1 6-bit accumulator or sign ex- 
tension. Used in multiplication 
and division to hold the most 
significant half of the product 
and dividend. It is also used to 
store the remainder after a 
divide operation. 

R(AC)=RF .. 16-bit accumulator. Used as 
one of the two operands for 
all computations. 
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Subroutine Categories 

A list of the binary arithmetic subroutines by category 
together with a description of their functions follows. 

The secondary subroutines shown are used internally 
by the other subroutines only. Their functions, therefore, 



will not be described in further detail. For the interested 
user, commented coding is provided on the actual listing 
of the binary arithmetic subroutine package. These 
secondary routines are relatively short and self-explana- 
tory. 



I. ADDITION 



ARGUMENT FUNCTION 



NAME 
ADDOP aaaa 
ADD 

ADDCON nnnn 
ADDST 

II. SUBTRACTION 

SDOP aaaa 
SD 

SDCON nnnn 
SMOP aaaa 
SM 

III. MULTIPLICATION 

MPYOP aaaa 
MPY 

IV. DIVISION 

DIVOP aaaa 

DIVO 

DIV 

DIVQ 



R(AC)+M(OPERAND POINTER) * R(AC) 

R(AC)+OPERAND ♦ R(AC) 

R(AC)+CONSTANT * R(AC) 

R(AC)+two bytes on stack * R(AC) 

M(OPERAND POINTER)- R(AC) * R(AC) 
OPERAND- R(AC) * R(AC) 

CONSTANT- R( AC) * R(AC) 

R(AC)-M(OPERAND POINTER) * R(AC) 
R(AC) OPERAND * R(AC) 



R(AC)*M(OPERAND POINTER) 
R(AC)*OPERAND 



* |R(MQKR(AC)] 
" [R(MQ);R(AC)1 



|R(MQ):R(AC)l/M(OPERAND POINTER)* R(AC) 
zero divide check and sign extension 
quotient overflow check 
| R(MQ):R( AC )j /OPERAND 



R(AC) 



V. BINARY-CODED-DECIMAL NUMBER CONVERSION 

CBD aaaajui Binary in R(AC )+ BCD 

CDB aaaa.nn BCD * Binary in R( AC) 

VI. UTILITY ROUTINES 

PUSH AC --- R( AC»* stack 

PUSHCQ --- R(MQ).R(MA).R(CR)* stack 

POPAC --- slack- R< AC) 

POP - - - stack * discard 

POPCQ --- slack - R(MQ).R(MA).R(CR) 

LOADOP aaaa ^OPERAND POINTER)* R( AO 

LOAD --- OPERAND* R(AC) 

LODCON nnnn CONSTANT + R( AC) 

STOROP aaaa R( AC) - MlOPERAND POINTER) 

STORE --- R( AC ) * OPERAND 

COMPOP aaaa II R(AO >M(OPERAND POINTER) then I 

COMP - -- If R(AO>QPERAND then I * DF 

TEST --- compare R(AC) with 

SWAPAQ - - R{AC)?R(MQ) 

VII. SECONDARY ROUTINES 

DABS*- ABS|R(MQ)| ABS(OPERAND) * R(MQ) 

entry point of DABS 



DF 



DSM* 
DVA* 

DSHL* 

DZS 



entry point of DABS 
MQ*: ♦ MQ 

clear memory locations for BCD 



NOTES: 

aaaa is two bytes address of Operand. * found in CDPIKOI version only, 
nnnn is two bytes constant literal. 
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Calling Sequence 



Meaning of DF 



The calling sequences of the subroutines are similar; 
the only differences are the nature of their arguments. 

Some routines deal implicitly with an operand on the 
stack, or witli an operand pointed to by the address 
register. Some fetch the address of the operand from the 
call sequence argument list, and others fetch the actual 
argument from the call sequence. Typically, a routine 
which fetches the address of an operand is used if the 
operand is a variable. On the other hand, a routine that 
fetches the actual argument is used if the operand is a 
constant. For instance, if the function A=B/C+5 is to be 
performed, the calling sequence of the divide and add 
routines could be: 
SEP CALL 

, ,A(D1V0P) - . . assume IR(MQ);R(AC)] con- 
tain the variable B. 
,A(C) . . address of the variable C in 

memory. 
. . now R(AC) contains the quo- 
tient of the 
. . operation B/C. 

SEP CALL 
,A(ADDCON) 

,X'0005' . . the constant 5 is to be added 

to the 

. . quotient of B/C stored in 

R(AC) previously. 
. . now R( AC) contains B/C+5 

Algorithms 

The add and subtract routines use ordinary 2's com- 
plement add and subtract methods. For multiplication, 
the add-shift algorithm is implemented. The divide 
routine uses the nonrestoring method. These algorithms 
can be found in computer arithmetic books. For example, 
see Digital Computer Design Fundamentals by Yaolian 
Chu, McGraw-Hill Book Company. 

The BCD-to-binary conversion is accomplished by 
taking the digits in order, starting with the most signi- 
ficant, and adding them to ten times the previous partial 
result- successively. 

The binary-to-BCD conversion for the CDP180I is 
implemented in the reverse order. The binary number in 
register AC is divided by ten successively until R(AC) 
becomes zero. On each iteration, the remainder is the 
corresponding BCD digit starting from the least signi- 
ficant. DZS is an internal subroutine used to initialize all 
the digits to zero. 

The implementation of the binary-to-BCD conversion 
for the CDP1802 is faster than that for the CDP1801 . It 
is described in the book referenced above. 



The add, subtract, divide, BCD-to-binary conversion, 
and binary-to-BCD conversion routines affect DF. The 
DF is set if the result has overflowed. Since no overflow 
condition is possible for multiplication, the multiply 
routine sets DF if the product is greater than 16 bits. 
Some of the subroutines also use DF to indicate the 
terminal condition of an operation. For example, the 
compare subroutine sets DF if the content of R(AC) is 
greater than or equal to the operand pointed to by 
register MA. Thus, it is assumed and is essential that the 
subroutine linkage routines do not alter the state of DF. 
The "Standard Subroutine Call and Return Technique" 
is assumed. Appendix A contains a listing typical of these 
programs. 



Utility Routines 

Four of the general registers R(AC), R(MQ), R(MA), 
and R(CR), are used by various routines. For programs 
that need these registers, special routines have been in- 
cluded which save them on the stack, and later restore 
them. Accordingly, the register save and restore routines 
are completely independent. In particular, these routines 
are partitioned into two sets: routines to push and pop 
the accumulator, and routines to push and pop the other 
three registers as a block. The separate routines for the 
accumulator permit intermediate results to be saved on 
the stack for later use in computation. In addition, a 
routine is provided to swap or exchange the accumulator 
with the accumulator extension, which is used in multi- 
plication and division. 

It is assumed that the stack pointer normally points 
to one byte above the first of two bytes stored by the 
subroutine call operation (i.e., the last pushed, having the 
lower memory address), and that these two bytes are 
normally popped off by the return operation. Note that 
this assumption is consistent with the standard subroutine 
linkage conventions. Thus, to save data on the stack, the 
data must be inserted beneath those first two bytes, so 
that when they are popped off, the saved data will be on 
top. Similarly, when the data is to be recovered.it must 
be fetched from beneath the top two bytes, then the gap 
closed up. One of the entries to the binary add routine 
also permits using the virtual top of the stack as one 
operand (that is, the top of the stack as seen by the 
calling program). 
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I Defined Options 

Some of the lines in the listing have one or more flags 
on the right margin. They consist of a symbol enclosed 
within parentheses. These symbols are used to flag 
("Defined Options" which are specified in the notes to 
|follow. Usually to invoke a particular option, all of the 
lines flagged by the same character are altered in some 
.specified way. 

(@) Separate Stack 

While it is expected that the user will utilize the 
standard subroutine linkage, there is no requirement that 
[the stack pointer used for the binary arithmetic be the 
|same as that for the subroutine linkage. Since some of 
these routines do not themselves make use of the call 
linkages, it is not always necessary to use a stack for the 
Ms. If a stack is not needed, subroutines PUSHCQ, 
'fUSHAC, POPCQ and POPAC are inappropriate. If their 
functions are desired, the routines must be rewritten 
[omitting the operation of slicing off the top of the stack 
and working under it (actually this results in the routines 
being trivially simple, so the user should have no diffi- 
culty recoding them). If the arithmetic from the top of 
the stack is still a desirable feature, the lines flagged by 
l(@) must be deleted, so that R(MA) will point to the 
actual top of the stack. 

1(0) 16-Bit Dividend 

By retaining the lines so flawed, and deleting the lines 
flagged (/), the divide routine will assume that all divi- 
dends fit entirely into the R(AC), and that error condi- 
tions can occur only if the divisor is zero. 

1 (/) 32-Bit Dividend 

By retaining the lines so flagged, and deleting the lines 
I flagged (0), the divide routine will assume that all divi- 
dends occupy the full 32 bits of the R(AC) and R(MQ), 
and that a divide fault is possible only if the quotient re- 
It of the dividend divided by the divisor would exceed 
| the 1 6 bits of the R(AC), or if the divisor is zero (which 
lis equivalent to an infinite quotient). 

(0) (/) No Divide Check 

By deleting all the lines flagged by either (0) or (/), 
the divide routine will perform r.o testing on the possi- 
bility of a divide fault. This deletion poses the simple 
hazard that the numbers resulting from the operation will 
be meaningless if a divide fault occurs, and no indication 
of the error will be returned to the calling routine. Note 
that in this option, the dividend is assumed to be 32 bits. 

If the user needs to make alterations to the routines, 
or if some are omitted, their placement in memory may 
need changing to eliminate possible branches out of page. 



Timing 

Timing measurements, given in Fig. 3, were taken on 
the arithmetic and code conversion subroutines. For the 
CDP1801 version, the speed is limited by the size of the 
program since the objective is to fit the total package into 
I-K of memory. However, with the CDP1802 instruction 
set, it is possible to meet this memory space requirement 
while optimizing for speed. All the measurements were 
based on a clock rate of 2 MHz. The actual timing can be 
rescaled depending on the user's application system 
clock rate. For instance, if the CDP1802 is operated at a 
6-MHz clock rate, the time shown is reduced by a factor 
of three. 



I. Arithmetic Functions 





ADD 


SUBTRACT 


MULTIPLY 
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Best: 


0.152 ms 


0.168 ms 


3.112 ms 


13.80 ms 


Worst: 


0.264 ms 


0.32 ms 


9.7B2 ms 


16.15 ms 



II. BCD S BINARY 



BINARY - ECD 


BCD - BINARY 


15.36 ms 


5.84 ms 


73.48 ms 


29.76 ms 



Fig. 3(a)— Timing measurements for trie RCA CDP1801 
COSMAC Microprocessor (based on 2-MHz 
clock rate). 
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ADD 


SUBTRACT 


MULTIPLY 


DIVIDE 


Best: 


0.1 3S ms 


0.128 ms 


2.792 ms 


4.496 ms 


Worst: 


0.224 ms 


0.256 ms 


4.223 ms 


5.856 ms 



II. BCD 2 BINARY 



BINARY - BCD 


BCD - BINARY 


4.37 ms 


0.31 ms 


9.27 ms 


2.67 ms 



Fig. 3(b)-Timing measurements for the RCA CDPJ802 
COSMAC Microprocessor (based on 2-MHz 
clock rate). 
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Detailed Description of Subroutines 



The following material provides a detailed description 
of each subroutine and how it is used. For ease of use this 
information is given in a standard format which includes 
the subroutine identification, its function, the calling 

Index by Category 



procedure, the registers used, other subroutines used, the 
meaning of DF on return, the number magnitude, the 
time range for the subroutine, its length in bytes, and, 
where helpful, an example. 

Index - Alphabetically 



Subroutine Page 
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12 
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12 
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NUMBER CONVERSION 
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18 




CDB 


19 


VI. 


UTILITY ROUTINES 






PUSHAC 


20 
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20 




POP AC 


20 




POP 
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POPCQ 


20 




LOADOP 


21 
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21 
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21 




STOROP 


22 
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22 
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22 




TEST 


23 
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23 
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1. Subroutine: ADDOP 

ADD 

2. Function: 

ADDOP and ADD are two entries of a subrou- 
tine that add the content of R(AC) and a two- 
byte operand in memory pointed to by R(MA). 
The sum is stored in R(AC). 
ADDOP fetches the address of operand from 
the calling program and stores it in R(MA). 
ADD assumes the address of operand is already 
in R(M A). 

3. Calling Procedure: 

- • enter from ADDOP 
SEP CALL 
.A(ADDOP) 

,A(OPR) . .where OPR is 

. . the address of the 
. . operand. 

. . enter fio m ADD 
SEP CALL 

,A(ADD) . . R(M A) contains the address of 
. . operand. 

4. Registers Used: 

R(LINK) for ADDOP only. R(MA), R(AC), R(SP). 

5. Other Subroutines Used: 

ADDOP : should be followed in memory by ADD. 
ADD : none 

6. On Return: 

DF = means addition was successful. 
DF = I means the sum has exceeded the maximum 
or minimum range of rcpresentabie numbers. 

7. Number: 

Representation: Signed 2's complement 

Width: 16 bits 

Range: 8000 < number 1 5 < 7 FFF 

-32768 < number 10 < 32767 

8. Time: 

CLOCK RATE: 2 MHz 6.4 MHz 

Best 0.152 ms 

CDPIS01 



0.152 
Worst 0.264 

_ Best 0.136 
CDH1802 Wors( 0J92 



0.042 
0.060 



ms 
ms 
ms 



9. Length: 



CDP1801 
version 
41 
37 



CDPI802 
version 

26 bytes 
22 bytes 



ADDOP 
ADD 
10. Example: 

. .assume AC * FFFE(= 2); 
. . assume M(OPR) = #0001 
. . enter from ADDOP 

SEP CALL 

.A(ADDOP) 

.A(OPR) - • address of operand 
[code] . . R( AC) is now FI LL (= - - 1 ) 
. . with DF ■ 



1. Subroutine: ADDCON 

2. Function: 

This subroutine adds the content of R(AC) to the 
two-byte constant passed from the calling program. 
The sum is placed in R(AC). 

3. Calling Procedure: 
SEP CALL 
.A(ADDCON) 

,X'nnnn' . . where nnnn is the 

. . constant to be added to R(AC). 

4. Registers Used : 

R(L1NK), R(MA). R(AC), R(SP). 

5. Other Subroutine Used: 
ADD 

6. On Return: 

DF = means addition was successful. 
DF = 1 means the sum exceeded the maximum or 
minimum range of representable numbers. 

7. Number: 

Representation: Signed 2's complement 

Width: 16 bits 

Range: 8000 < number 16 < 7FFF 

-32768 < number 10 < 32767 

8. Time: 

CLOCK RATE: 2 MHz 6.4 MHz 

„„ Best 0.208 
CDP180I 



CDP1802 
9. Length: 



Worst 0.288 
Best 0.192 
Worst 0.216 

CDP1801 
version 
45 



0.060 
0.067 



ms 
ms 
ms 
ms 



CDP1802 
version 

30 bytes 



Detailed Description of Subroutines 



13 



1. Subroutine: ADDST 

2. Function: 

ADDST adds the content of R(AC) to the top two 
bytes of stack. These two bytes should be stored in 
a sequence sucli that the more significant part is on 
the top and the less significant part is at the bottom. 

3. Calling Procedure: 
SEP CALL 

,A(ADDST) . . 2-byte constant is stored 
. . on top of stack. 

4. Registers Used: 

R(L1NK), R(MA), R(AC), R(SP). 

5. Other Subroutine Used: 
ADD 

6. On Return: 

DF = means addition was successful. 
DF = 1 means the sum exceeded the maximum or 
minimum range of re presentable numbers. 

7. Number: 

Representation: Signed 2's complement 
Width: 16 bits 

Range: 8000 < number j 6 < 7FFF or 

-32768 < numberjo < 32767 

8. Time: 

CLOCK RATE: 2 MHz 6.4 MHz 

Best 0.218 ms 
— ms 



CDPI801 



<: Dim 802 

9. Length: 



0.218 
Worst 0.298 
Best 0.204 
Worst 0.224 

CDP1801 

version 
46 



0.064 
0.070 

CDP1S02 
version 
31 



ms 
ms 



bytes 



1. Subroutine: SDOP 

SD 

2. Function: 

SDOP and SD are two different entries of a sub- 
routine that subtract R(AC) from the contents 
of two bytes in memory that is pointed to by R(MA). 

SDOP fetches the address of minuend from the 
calling program and stores it in R(MA). 

SD assumes the address of minuend is already in 
R(MA). 

3. Calling Procedure: 

. . to enter from SDOP 



SEP CALL 
,A(SDOP) 

,A(MINU) . . where MINU is the address 
. . of the minuend. 

. . to enter from SD 



SEP CALL 

,A(SD) . . the address of minuend should be 
. . in R(MA). 

4. Registers Used : , 

R(LINK) for SDOP only, R(MA), R(AC), R(SP). 

5. Other Subroutines Used: 

SDOP: should be followed in memory by SD. 
SD : none 

6. On Return: 

DF = means subtraction was successful. 

DF = 1 means subtraction was unsuccessful because 
the difference has exceeded the maximum or 
minimum range of representable numbers. 

7. Number: 

Representation: Signed 2's complement 
Width: 16 bits 

Range: 8000 < number^ < 7FFF or 

-32768 < number 10 < 32767. 

8. Time: 

CLOCK RATE: 2 MHz 6.4 MHz 

Best 0.168 - ms 

— ms 



CDP1801 



CDP1802 
9. Length: 



SDOP 
SD 



0.168 
Worst 0.256 
Best 0.128 
Worst 0.184 

CDP1801 
version 

35 

31 



0.040 
0.057 



ms 
ms 



CDP1802 

version 

24 bytes 
20 bytes 



10. Example: 

[code] . . assume R(AC) = X'OOOA' 

. . assume M(M1NU) = X'0005' 

SEP CALL 

,A(SDOP) . . enter from SDOP 
,A(M1NU) . . address of minuend will be 

. . fetched by SDOP 
[code] . . R(AC) is now FFFB (= 0005) 

. . with DF = 0. 
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Binary Arithmetic Subroutines for RCA COSMAC Microprocessors 



I. Subroutine: 



SDCON 



2. Function: 

This subroutine subtracts AC from a 16-bit con- 
stant and stores the difference in AC. 

3. Calling Procedure: 
SEP CALL 
,A(SDCON) 

.X'nnnn' . . where nnnn is the constant. 

4. Registers Used: 

R(LINK), R(MA), R(AC), R(SP). 

5. Other Subroutine Used: 
SD 

6. On Return: 

DF = means subtraction was successful. 

DF = 1 means subtraction was unsuccessful because 
the difference exceeded the maximum or 
minimum range of representable numbers. 

7. Number: 

Representation:" Signed 2's complement 
Width: 16 bits 

Range: 8000 < number^ < 7FFF or 

-32768 < number j < 327 67 

8. Time: 

CLOCK RATE: 2 MHz 6.4 MHz 

Best 0.216 ms 
Worst 0.272 - ms 

Best 0.184 0.057 ms 



CDP1801 



0.057 

CDP1802 Worst 20g 065 ms 
9. Length: 

CDP1801 CDP1802 
version version 

39 28 bytes 

10. Example: 

[code] . . assume R(AC) - X'0002' 

SEP CALL 

,A(SDCON) 

,X'0002' . . constant is X'0005 ' 
[code] . . R(AC) is now X'0003' with DF = 



1. Subroutine: SMOP 

SM 

2. • Function: 

SMOP and SM are two different entries of a sub- 
routine that subtract the contents of two bytes 
in memory, which is pointed to by R(MA), from 
R(AC). SMOP fetches the address of subtrahend 
from the calling program and stores it in R(MA). 
SM assumes the address of subtrahend is already 
in R(MA). 

3. Calling Procedure: 

. . to enter from SMOP 

SEP CALL 
,A(SMOP) 

,A(SUBT) . . where SUBT is the 

. . address of the subtrahend. 

. . to enter from SM 

SEP CALL 

,A(SM) . . R(MA) should contain 

. . the address of subtrahend. 

4. Registers Used : 

R(L1NK) for SMOP only, R(MA), R(AC), R(SP). 

5. Other Subroutines Used: 

SMOP: should be followed in memory by SM. 
SM : none 

6. On Return: 

OF = means subtraction was successful. 

DF = 1 means subtraction was unsuccessful because 
the difference has exceeded the maximum or 
minimum range of representable numbers. 

7. Number: 

Representation: Signed 2's complement 
Width: 16 bits 

Range: 8000 < number 16 < 7FFF or 

-32768 < number 10 < 32767 

8. Time: 

CLOCK RATE: 2 MHz 6.4 MHz 

Rf-st 

CUP 1801 



CDP1S02 
9. Length: 



Worst 

Best 
Worst 



0.216 
0.320 
0.192 
0.256 



0.060 
0.080 



ms 
ms 
ms 
ms 



SMOP 
SM 

10. Example: 
[code] 



CDP1801 
version 

49 

45 



CDP1802 

version 

34 bytes 
30 bytes 



. . assume M(100; 101) = 0001 and 
. . R(MA) = 0100 and R(AC) - 8000 
SEP CALL 

,A(SM) . . take SM entry 

[code] . . DF = 1 

. . difference exceeded the 
. . maximum range of negative 
. . number 



Detailed Description of Subroutines 
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I. Subroutine: 



MPYOP 
MPY 



2. Function: 

MPYOP and MPY are two different entries of a 
subroutine that multiply R( AC) by the contents 
of two bytes in memory which are pointed to by 
R(M A). The product is placed in R(MQ) and 
R(AC) with the highest bit of R(MQ) as the sign 
bit and the lowest bit of R(AC) as the least signi- 
ficant bit. 

MPYOP fetches the address of multiplier from 
the calling program and stores it in R(MA). 

MPY assumes the address of multiplier is already 
in R(MA). 

3. Calling Procedure: 

. . to enter from MPYOP 

SEP CALL 
,A(MPYOP) 

,A(MPLR) . . where MPLR is the address 
. . of the multiplier. 

. . to enter from MPY 

SEP CALL 

,A(MPY) . . the address of multiplier 
. . should be in R(MA). 

4. Registers Used: 

R(LINK) for MPYOP only, R(MA), R(MQ), R(AC), 
R(CR). 

5. Other Subroutines Used: 

MPYOP: should be followed in memory by MPY. 
MPY : DSM, DVA (for CDPI801 version only). 

6. On Return: 

DE = means product < 16 bits 
DF = 1 means product > 16 bits 



7. Number: 

Representation : Signed 2's complement 
Width: Multiplicand and Multiplier: 

16 bits 
Product: 
32 bits 

Range: Multiplicand and Multiplier: 

8000 < number i ^ < 7FFF or 
-32768 < number jo < 32767 

Product: 

C0008000<number 16 < 40000000 
-1073709056<number 10 < 1073741824 

8. Time: 

CLOCK RATE 2 MHz 6.4 MHz 

Best 3.112 ms 
Worst 9.782 ms 
Best 2.792 0.872 ms 



CDP1S01 



CDP1802 
9. Length: 



Worst 4.223 



CDPI801 
version* 



MPYOP 131 
MPY 127 
♦Including secondary subroutines. 

10. Example: 
[code] 



0.872 
1.320 

CDP1802 
version 

81 

77 



ms 



bytes 
bytes 



assume M(MPLR) = X'0001 ' 
assume R(AC) = FFFF(= -000 1 ) 
SEP CALL 

,A(MPYOP). . enter from MPYOP 
,A(MPLR) 

[code] . . (R(MQ); R(AC)] = FFFFFFFF(= - 1 ) 
. . with DF = since the magnitude 
. . of product is less than 1 5 bits 
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Binary Arithmetic Subroutines for RCA COSMAC Microprocessors 



1. Subroutine: DP/OP 

DIVO 

DIV 

DIVQ 

2. Function: 

DIVOP, DIVO, DIV, DIVQ are four different entries 
of a subroutine which divide the contents of (R(MQ); 
R(AC)] by the contents of two bytes in memory 
pointed to by R(MA). 

Upon returning from the subroutine, R(AC) con- 
tains the quotient and R(MQ) contains the remainder. 

DIVOP fetches the address of divisor from the call- 
ing program and stores it in R(MA). 

DIVO assumes the address of divisor is already in 
R(MA) and the magnitude of dividend does not ex- 
ceed 15 bits. It extends the sign bit of R(AC) into 
R(MQ), and does a divide check (divisor = 0). 

DIV also assumes the address of divisor is already 
in R(MA). It checks dividend against divisor to 
make sure that the magnitude of quotient will not 
exceed 15 bits. The divisible numbers are shown on 
the following page. 

DIVQ assumes R(MA) contains the address of divisor. 
It divides (R(MQ); R(AC)] by the operand in mem- 
ory which is pointed to by R(MA). When returning 
to the calling program, R(AC) contains the quotient 
with remainder stored in R('MQ). This entry docs not 
check condition; hence, it is the user's responsibility 
to determine if the quotient is meaningful. 

3. Calling Procedure: ■ 

. . enter from DIVOP 

SEP CALL 
,A(D1V0P) 

,A(DIVR) . . where DIVR is the 
. . address of divisor. 



SEP CALL 
,A(DIV0) 



enter from the other entry points 



.or DIV, or DIVQ 
. I the address of divisor 
. . should be in MA. 

4. Registers Used: 

DIVOP: R(LINK), R(.MA). 

DIVO: R(MA), R(AC), R(MQ). 

DIV: R(CR), R(MQ), R(AC), R(MA). 

DIVQ: R(CR), R(MQ), R(AC), R(MA), R(SP). 

5. Other Subroutines Used: 

DIVOP: The code should fall through DIVO and 
DIVQ if zero divide check and sign extension op- 
tion (which is performed by DIVO) is chosen. 



Alternatively, the code could fall through DrV 
and DIVQ if the option of quotient overflow 
check is selected. 

DIVO: The code should fall through DIV, DIVQ. 

DIV: (1) The code should fall through DIVQ. 
(2) DSHL, DABS (for CDP1801 only). 

DIVQ: DSHL, DABS (for CDP1801 only). 

6. On Return: 

DF = means division was successful. 
DF = 1 means: 

(1 ) If subroutines are in sequence of 
DIVOP, DIVO, DIVQ, or DIVO, 
DIVQ: Division was unsuccessful 
because [R(MQ); R(AC)j division 
by was attempted. 

(2) If subroutines are in sequence of 
DIVOP, DIV, DIVQ or DIV, DIVQ: 
Division was unsuccessful because the 
magnitude of dividend is too large and, 
consequently, R(AC) will overflow. 

The contents of R(MQ) and R(AC) are not changed 
if DFis set to 1. 

7. Number: 

Representation: Signed 2's complement 

Width: Dividend: 32 bits 

Divisor, Quotient, Remainder: 16 bits 

Range: Dividend (absolute): 

C0000001 < number 16 <400007FFF 
-1073741823 <number 10 < 1073774591 
Divisor, Remainder, Quotient: 
8000 <iuimber 16 <7FFF 
-32768 < number 10 < 32767 

8. Time: 

CLOCK RATE: _2_MHz 6.4 MHz 

Best 13.38 - ms 

Worst 15.76 - ms 

Best 4.496 1.405 ms 



CDP1801 



CDP1802 



13.38 
15.76 

4.496 1.405 
Worst 5.856 1.830 ms 
9. Length: 

The numbers indicated here are the lengths of each 
eniry of the divide subroutine. Thus, the actual 
length of the subroutine should be the sum of the 
entries that are used. 

CDP1801 CDP1802 

version version 
DIVOP 4 4 bytes 

DIVO 20 18 bytes 

DIV 170 168 bytes 

DIVQ 173 114 bytes 



Detailed Description of Subroutines 
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10. Example 1 : 

[code] . . assume M(D!VR) = X'0003' 

. .assume R(AC) = X'OOOA' 
. .enter DIVOP, DIVO, DIVQ 

SEP CALL 

,A(DIVOP) . . followed by DIVO, DIVQ 

,A(DIVR) . . address of divisor 

[code] . . [R(MQ); R(AC)] is now 00010003 

. . where remainder = 0001 

. . and quotient = 0003 

. . with DF = 



Example 2: 

[code] . . assume M(DVSR) = X'0002' 
[code] . . and [R(MQ); R(AC)] = 00500001 

. .enter DIVOP, DIV, DIVQ 

SEP CALL 

,A(DIVOP) . . followed by DIV, DIVQ 

,A(DVSR) . . address of divisor 

[code] . . DF = I since [R(MQ); R(AC)] 

. .(= 00500001) divided by 
. . 0002 would result in 
. . overflow of AC (Quotient 
. . is too large to be able to 
. . store in 1 6 bits) 



7FFFFFFE " 



4000 7FFF 




C000 0001 - 



E000 



- 3FFF 7FFF 



3FFE FFFF 



S" 0000 7FFF 



-- FFFF 8000 



C001 0004 



C000 6003 



- - COO j 0002 



8000 0000 



DIVISOR 



7FFF 

92CS -28085 



Shaded area indicates divisible numbers. 
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1. Subroutine: CBD 

2. Function: 

CBD converts the signed 2's complement number in 
R(AC) to binary-coded-decimal (BCD) numbers. The 
address for the storing is a two-byte hex number 
passed from the calling program. The number of 
digits (including sign) of this BCD number is a one- 
byte hexadecimal number passed also from the call- 
ing program to CBD. On return, the BCD result is 
stored in a sequence such that the sign of the BCD 
numbers is followed for the CDP1801 version by 
the least significant digit, followed by the second 
least significant digit , and for the CDP1 802 version, 
by the most significant digit, followed by the second 
most significant digit, elc. 

3. Calling Procedure: 
SEP CALL 
,A(CBD) 

,A(BCD) . . address for BCD result 

,#nn . . where nn is a one-byte 

. . constant in hex to indicate 
. . the maximum number of 
. . digits for result (including 
- - sign). 

4. Registers Used : 

R(LINK). R(AR). R(NR), R(AC). R(M A). 

5. Other Subroutines Used: 
SDCON 

DZS \ For CDP 1 80 1 version only. 
PUSHAC ' 

DIVQ 



On Return: 

DF = means conversion was successful. 

DF ■ 1 means the number of digits of BCD (and 
sign) is larger than the length argument 
passed from the calling program. (Overflowed!) 

Number: 

Signed 2's complement R(AC). 
R(AC): 16 bits 
BCD: 2 < length < 6 
8000 < AC < 7FFF 
-32768 < BCD < 32767 



Representation 
Width: 

Range: 



Sign of BCD: 


#0B = + 

#0D = - 






Time: 








CLOCK RATE: 


2 MHz 


6.4 MHz 




CDP ' 801 Worst 


15.36 
73.48 




ms 
ms 




4.37 
9.27 


1.366 
2.897 


ms 
ms 


Length: 

CDP1801 


CDP 1802 





version* 
339 

♦Including secondary subroutines. 
10. Example: 



version 
83 



bytes 



SEP CALL 
,A(CBD) 
,A(RSLT) . 
.#05 



. assume AC = FFE0 -32 10 
. assume BCD is to be stored in memory 
. starting at address A(RSLT). 



. address of BCD to be stored 

. only three digit locations will be used. 

The last two locations will be 

cleared to zeros. 

. the BCD number will be stored in 

memory pointed to 
.by R(AR). 



For the CDP 1 801 version, the above conversion will 
produce the following: 



R(AR)1 L RSLT M(RSLT) M(RSLT+I) M(RSLT+2) M(RSLT+3) M(RSLT+4) 



0D 



03 



00 



SIGN 10° 10 1 

5 bytes in length 



\Q2 



00 



I0 3 



= -32 10 



For the CDP 1802 version, the above conversion will 
produce the following: 



R(AR) 



RSLT M(RSLT) M(RSLT+I) M(RSLT+2) M(RSLT+3) M(RSLT+4) 



0D | 00 



SIGN 



M)3 



00 
10 2 



_03 
10' 



02 
10° 



] = -32, 



5 bytes in length 



Detailed Description of Subroutines 
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1. Subroutine: CDB 

2. Function: 

CDB converts the binary-coded-decimal (BCD) 
number stored in memory, whose address is passed 
from the calling program, into a signed 2's comple- 
ment number and stores it in R(AC). The length 
of the BCD number, i.e., the number of digits and 
the sign, is a one-byte argument that is also passed 
from the calling program. The BCD number should 
be stored in memory in a sequence such that the 
first byte is the sign and, for the CDP1801 , the second 
byte is the least significant digit, the third byte is the 
second least significant digit, etc.; for the CDP1802, 
the second byte is the most significant digit, the third 
byte is the second most significant digit, etc. 

The sign of this BCD number is represented by 
#0B(+) and #0D(-). 

3. Calling Procedure: 



SEP CALL 
A(CDB) 
,A(BCD number) 
,#nn 



Registers Used: 
R(LINK), R(AR), R(NR), R(AC). 



. address of the BCD number 
. length of the BCD, includes 
. sign. 



Other Subroutines Used: 
PUSHAC 



8. 



For CDP1X0I version only. 



LODCON 
STORE 
ADDST 
SDCON 
MPY 

6. On Return: 

DF = means conversion was successful. 

DF = 1 means conversion failed because t he BCD 
number is either too large or too small to 
be representable as a signed 16-bit 2's com- 
plement number. 

7. Number: 

Signed 2's complement R(AC). 
R(AC): 16 bits 
BCD: 2 < length < 6 
8000 < R(AC)<7FFF 
-32768 < BCD < 32767 



Representation: 
Width: 

Range: 



Time: 

CLOCK RATE: 
Best 
Worst 
Best 
Worst 



CDP1801 



CDP1802 
9. Length: 



2 MHz 
5.84 
29.24 
0.31 
, 2.67 



CDP1801 
version* 
342 



6.4 MHz 



0.097 
0.834 

CDP180I 
version 
107 



ms 
ms 
ms 
ms 



bytes 



including secondary subroutines. 

10. Example: 

. . assume the BCD number, +1536, is to be 
. . converted to signed 2's complement number 
. . and the BCD is stored in the memory as 



M( BCD) M(BCD+I) M(BCD+2) M(BCD+3) M(BCD+4) 



0B 



X6 



X3 



X5 



SIGN 10° I0 1 

for the CDPI80I version, or 



10^ 



XI 



10 3 



1536 



10 



M( BCD) M(BCD+I)' M(BCD+2) M(BCD+3) M(BCD+4) 

I 



0B 



X5 



I 



X3 



SIGN 



10? 



10? 



10' 



I 



X6 



= 1536 



10 L 



10 



for the CDPI802 version. 



where X is ignored by CDB. i.e., the BCD digits 
can be stored as ASCII numbers. 

SEP CALL 
,A(CDB) 

,A(BCD) . . address of BCD 

,#05 .. 4 digits + sign = length of BCD 

. . R(AC)now contains 0600 16 (= 1536 10 ) 
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1. Subroutine: 

2. Function: 

This subroutine pushes the content of R(AC) onto 
stack with R(AC).l on the top and R(AC).0 at the 
bottom. Upon returning, R(MA) is left pointing to 
R(AC).l (one byte below the top of the stack, i.e., 
R(MA)=R(SP)+1). 

3. Calling Procedure: 
SEP CALL 
,A(PUSHAC) 

4. Registers Used: 
R(MA), R(AC), R(SP). 

5. Other Subroutine Used: 
None 

6. On Return: 

DF is not changed by PUSHAC. 

7. Length: 

CDP1801 CDP1802 
version version 

21 19 bytes 



PUSHAC 1. Subroutine 



POPAC 
POP 

2. Function: 

POPAC pops the top two bytes off the stack and 

stores them in R(AC).l and R(AC).0. On return, 

R(MA) is left pointing to the byte below the top 

of the stack, i.e., R(MA) = R(SP)+1. 

POP is another entry of the subroutine which pops 

two bytes off the stack without storing them in 

R(AC). 

3. Calling Procedure: 
SEP CALL 

,A(POPAC) . . or POP 

4. Registers Used: 

R(MA), R(AC) for POPAC only, R(SP). 

5. Other Subroutine Used: 
None 

6. On Return: 

DF = means the top two bytes were not stored 
in R(AC). 

DF = 1 means R(AO contains the top two bytes 
of stack. 

7. Length: 

CDP1801 CDP1802 
version version 
POPAC 29 26 bytes 

POP 25 23 bytes 



PUSHCQ 



1. Subroutine: 

2 PUSHCQ pushes the contents of R(CR), R(M A), 
R(MQ) onto stack. R(MQ).l , R(MQ) 0, R(MA).I , 
R(MA) 0, R(CR).l , R(CR).0 are stored from top 
to bottom accordingly. R(M A) is changed by 
PUSHCQ. 

3. Calling Procedure: 
SEP CALL 
,A(PUSHCQ) 

4 Registers Used: 

R(CR), R(M A), R(MQ). R(SP),(R(MA) is changed 
by PUSHCQ). 

5. Other Subroutine Used: 

Nor • 

6. On Return: 

DF is not changed by PUSHCQ. 

? - Ung ' h: CDP180. CDP.802 
version . version 

33 28 bytes 



1. Subroutine: ^?CQ 

7. Function: 

POPCQ pops each of the top six bytes of the stack 
into R(MQ)1 , R(MQ).0, R(MA).l , R(MA).0; 
R(CR).l , R(CR).0 in sequence. 

3. Calling Procedure: 
SEP CALL 
,A(POPCQ) 

4. Registers Used: 

R(MQ), R(MA), R(CR),R(SP). 

5. Other Subroutine Used: 
None 

6. On Return: 

DF is not changed by POPCQ. 

CDP1801 CDP1802 
version version 

32 30 bytes 



Detailed Description of Subroutines 
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Subroutine: 



LOADOP 
LOAD 

2. Function: 

LOADOP and LOAD are entries to a subroutine 
that load the contents of memory (two bytes), 
whose high order byte is pointed to by RfMA). 
into R(AC). R(MA) is incremented twice by LOAD. 
LOADOP fetches the address of the operand and 
stores it into R(M A) and then does a LOAD. 
LOAD assumes R(MA) is pointing to operand. 

3. Calling Procedure: 

. . enter from LOADOP 

SEP CALL 
,A( LOADOP) 

,A(OPR) .. Load M(OPR) and M(OPR+l) 
into R(AC) 



. enter from LOAD 



SEP CALL 
.A(LOAD) 



7. 



.. Load M[R(MA)] and M[R(MA+1)] 
into R(AC) 

Registers Used: 

R(LINK) for LOADOP only, R(MA), R(AC). 

Other Subroutines Used: 

LOADOP: should be followed by LOAD. 

LOAD: none. 

On Return: 

DF is not changed by LOADOP or LOAD. 
Length: 

CDPI801 CDP1802 

version version 
LOADOP: 9. 9 bytes 

LOAD: 5 5 bytes 



8. Example: 



SEP CALL 

.A(LOADOP) 

.A(OPR) 



assume M(OPR) contains X'AB' 
assume M(OPR+l ) contains X'CD' 



address of ABCD 

R(AC) now contains ABCD 

R(M A) contains A(OPR+2) 



1. Subroutine: LODCON 

2. Function: 

LODCON loads the two-byte constant following 
the subroutine call into register AC. 

3. Calling Procedure: 
SEP CALL 
.A(LODCON) 

.X'nnnn' . . the constant 
[code] 

4. Registers Used: 
R(LINK), R(AC). 

5. Other Subroutine Used: 
None 

6. On Return: 

DF is not changed by LODCON. 

7. Length: 

CDPI80I CDP1802 
version version 

5 5 . bytes 
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|. Subroutine: STO™ P 

STORE 

2. Function: 

STOROP and STORE are entries of a subroutine 
which stores the contents of R(AC) into the mem- 
ory locations pointed to by R(MA). On return. 
R(MA) is pointing to the next 16-bil word, i.e.. 
R(M A) is incremented twice. 
STOROP fetches the address of the operand and 
stores it into R(MA). It then does a STORE. 
STORE assumes R(M A) contains the address of 
the operand. 

3. Calling Procedure: 

■ • to enter from STOROP 

SEP CALL 
.A(STOROP) 

A(OPR) ■ .address of operand 

[code] . . R(M A) is now A(OPR)+#02 

. . to enter from STORE 

SEP CALL 
A(STORE) 

|code] ..R(MA)isnowA(OPR)+*02 

4. Registers Used : 

R(MA). R(AC). R(L1NK) for STOROP only. 

5. Other Subroutines Used: cthrf 
STOROP: should be followed tn memory by S I UKfc. 
STORE: none. 

6. On Return: 

DF is not changed by STORE or STOROP. 

7. Length: 

CDP1801 CDPI802 

version version 
STOROP: 11 II b y (es 

STORE: 7 7 bytes 



1. Subroutine: 



COMPOP 
COMP 

2. Function: 

COMPOP and COMP are entries to a subroutine 
that compares R(AC) and the two-byte contents 
of memory pointed to by R(MA). DF is set to 1 
if R(AC) is greater than or equal to the contents 
of memory. 

COMPOP fetches the operand address and stores 

it into R(MA). It then does a COMP. 

COMP assumes R(M A) is pointing to the operand. 

3. Calling Procedure: 

. . enter from COMPOP 

SEP CALL 
,A(COMPOP) 

,A(OPR) • • address of operand 
. . enter from COMP 

SEP CALL 

,A(COMP) ■ • do comparison 

4. Registers Used: 

R(AC), R(MA), R(LINK) for COMPOP only. 

5. Other Subroutines Used: ~ n \io 
COMPOP: should be followed in memory by COMP. 
COMP: none. 

6. On Return: 

DF = means R(AC) < M(MA). 

DF = 1 means R(AC > M(MA). 

7. Number: 

Representation: Signed 2's complement 

Width: ' 1 6 bits 

Runge: . 8000 < number] 5 < 7FFF 

-32768 <numberi < 32767 

8. Length: 

CDP1801 CDP1802 

version version 
COMPOP: 22 22 bytes 

COMP: 18 18 bytes 

9. Example: 



SEP CALL 

,A(COMPOP) 

,A(OPR) 



.assume R(AC) = 0001; 
. M(OPR) contains X'FFFF' 



. address for comparison 
. DF is set to 1 since 
.0001 >FFFF(= -1) 
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1. Subroutine: Tfc 

2. Function: 

TEST tests if R(AC) is equal to zero. If so, TEST 
returns to the 3rd byte immediately following the 
SEP call of TEST in the calling program. If R(AC) 
is not zero, TEST returns to the 5th byte following 
the SEP call of TEST in the calling program. 

DF is set to 1 if AC is negative. 

3. Calling Procedure: 
SEP CALL 
,A(TEST) 

BR ZEROL . . TEST returns here 

if AC = 0. 

[non-zero exit] .. TEST returns here 
if AC #0. 

4. Registers Used: 
R(LINK), R(AC). 

5. Other Subroutine Used: 
None 

6. On Return: 

DF = means number in R(AC) is positive. 
DF = 1 means number in R(AC) is negative. 

7. Length: 

CDPI80I CDPI802 
version version 

II 10 bytes 



1. Subroutine: SWAPAQ 

2. Function: 

This subroutine exchanges the contents of R(AC) 
and R(MQ). R(CR).0 is used as a scratch register. 

3. Calling Procedure: 
SEP CALL 
.A(SWAPAQ) 

4. Registers Used: 
R(CR). R(MA). R(AC). 

5. Other Subroutine Used: 
None 

6. On Return: 

DF is not changed by SWAPAQ. 

7. Length: 

CDPI80I CDPI802 
version version 

13 13 bytes 
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Appendix A - Standard Subroutine 
Call and Return Technique 



I. CDP1801 Version: 

A. Subroutine CALL: 



CALLR: 


SEP R3 


. . to subroutine . . . 


CALLS: 


GHI R6 
STR R2 
DEC R2 
GLO R6 
STR R2 
DEC R2 


. . save R6 on stack. 




GHI R3 


. . save R3 in R6. 




PHI R6 






GLO R3 






PLO R6 






LDA R6 


. . set subroutine address 




PHI R3 


. . in R3. 




LDA R6 






PLO R3 






BR CALLR 


. .jump to subroutine. 


B. Subroutine RETURN: 


RETR: 


SEP R3 


. . return to main 


RET: 


GHI R6 


. . restore return address 




PHI R3 


. . into R3. 




GLO R6 






PLO R3 






INC R2 


. . restore old R6 saved on 




LDA R2 


. .into R6 




PLO R6 






LDA R2 






PHI R6 






DEC R2 






BR RETR 


. . return. 



II. CDP1802 Version: 

A. Subroutine CALL: 



CALLR: 


SEP R3 


. . to subroutine . . . 


CALLS: 


SEX R2 


. . point to stack 




GHI R6 


. . save R6 on stack. 




STXD 






GLO R6 






STXD 






GHI R3 


. . save R3 in R6. 




PHI R6 






GLO R3 






PLO R6 






LDA R6 


. . set subroutine address 




PHI R3 


. . in R3. 




LDA R6 






PLO R3 






BR CALLR 


. .jump to subroutine. 


B, Subroutine RETURN: 


RETR: 


SEP R3 


. . return to main . . . 


RET: 


GHI R6 


. . restore return address 




PHI R3 


. .into R3. 




GLO R6 






PLO R3 






SEX R2 


. . restore old R6 saved 




INC R2 


. . on stack into R6. 




LDXA 






PLOR6 






LDX 






PHI R6 






BR RETR 


. . return. 



I 
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Appendix B(l) - 
Arithmetic Subroutine 
Listing for CDP1801 



oooo 


1 


0001 




. ... COPYRIGHT 1975 RCA CORPORATION .... 


0000 


» 


0002 






0000 


> 


0003 




ORG #0400 


ouoo 


1 


0004 




.. cosmac arithmetic surroutine package 


0400 


1 


00 05 




. . 


0400 


1 


0006 




.. EXTRACTED FOR BINARY ARITHMETIC 


Ouno 


f 


0007 




.. AND CONVERSIONS FOR DECIMAL 


ouoo 


I 


000R 




.. OCCUPIES IK BYTES 


ouoo 


1 


0009 




. . 


0400 


1 


0010 






oaoo 


t 


0011 




.. DESIGNED FOR STANDARD CSDP SURROUTINE CALLS RF 


04on 


1 


0012 




• • 


0400 


1 






.. FOR STANDARD L INK AGE t 


0400 


1 


0014 




SP= #02 ...IT SHOULD BE THF STACK POINTFR. 


ouoo 


1 


0015 




»Cr #03 ...IT IS THE PROGRAM COUNTER 


OnriO 


1 


0016 




.. USFD BY THESE SUBROUTINES. 


oaon 


« 


0017 




CALLr #04 ...IT SHOULD POINT TO THE ROUTINE 


0400 


1 


00 IP 




.. WHICH FFFFCTS SURROUTINE CALLS. 


naoo 


1 


00 lo 




RETNr #05 ...IT SHOULD POINT TO THE ROUTINE 


OUOO 


1 


on?n 




.. WHICH EFFECTS SUBROUTINE RETURN. 


0400 


1 


0021 




LINKs #06 ...IT SHOULD POINT TO CALL PARAMETER 


0400 


t 


nn22 




.. .. (USUALLY OPFRAND ADDRESSES AND/OR CONSTANT 


0400 


1 


0023 




• • 


0400 


1 


nC?4 






n^no 


« 


0025 




THE FOLLOWING RFGISTERS MUST RF ASSIGNED 


04nn 


t 


0026 


AR 


2 #0A ..(USED FOR RESULT ADnRESS ) 


0400 


1 


0027 






Ounn 


t 


002R 


nr 


- HOP ..(USFD FOP RESULT DIGIT COUNT) 


0400 


1 


C0?P 




.. 16-BIT BINARY ARITHMETIC ROUTINES. 


0400 


1 


0030 




.. THE FOLLOWING REGISTERS MUST RE ASSIGNED 


0400 


t 


31 


AC 


= HOF .. 16-RIT ACCUMIJL ATORrRF . 


0400 


1 


0032 


MO 


= #0E .. 16-RIT ACCUMULATORrRE EXTENSION. 


0400 


1 


00 33 


ma 


= «0D .. (TEMPOR=RDARY) OPERAND MEMORY ADDRFSS. 


0400 


1 


00 34 


CR 


s #0C .. (TEMPORARY) SCRATCHPAD AND COUNTER. 


nunn 


1 


3"=. 




• • 


nan o 


t 


36 




OPG *+»0P ..FO» PAGE BOUNDARY 


OiOP 


1 


37 






040R 




O03P 




.. SWA° AC WITH MQ REGISTERS 


04OA 


°F> 


003P 


SWAP AO ! GHI MQ SAVE MQ.l 


040Q 


AC » 


(lnuo 




PLO CR .. IN CR.n (COULD HaVE PUSHED ON STAC 


"40 A 


OF j 


0041 




GHI AC .. NOW AC.1 TO MQ . 1 


fiaOR 


RFJ 


42 




PHI MQ 


r>4np 


pr i 


0043 




GLO MQ .. SAVE MQ.O 


3400 


RF J 


0044 




PHI AC . . IN AC.l 


340F 


BF J 


04 5 




GLO AC .. THEN AC.O TO MQ.O 


140F 


AFI 


046 




PLO MQ 


3410 


OF J 


f»0 47 




GHI AC .. NOW SAVFD MQ.O TO AC.O 


341 1 


AF J 


n04R 




PLO AC - • 


341 ? 


PC t 


no 49 




GLO CR .. FINALLY SAVFD ^Q.l 


341 S 


RFt 


050 




PHI AC .. TO AC.l 


3414 


D5 1 


0051 




SFP RETN 


3415 


1 


no 52 




.. 16-RIT SUBTRACT AC FROM CONSTANT 


34] 5 


» 


0053 




.. ****ACr CONSTANT-AC 


3415 


I 


054 




.. ************ (TO C ALL t WRITE) *********** 


3415 


t 


55 




.. ****CALL SDCON 1 # CONSTANT 


3415 


F.6I 


00 56 


SDCON! GLO LINK . . (ESSENTIALLY SAME AS ADCON) 


3416 


Am 


0057 




PLO MA 
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0417 


961 


0058 


GHI LINK 


0418 


nni 


0059 


PHI MA 


041Q 


161 


0060 


INC LINK 


0U1 A 


161 


0061 


INC LINK 


0U1R 


30?1 » 


006? 


BR sd 


rmm 


t 


1063 


• • 


omo 


t 


0064 


.. 16-RIT SURTRACT AC FROM OPFRAND 


OU] n 


t 


0065 


.. ****ACsOPRN-AC 


04in 


1 


0066 


.. ************ (TO CALLf WRITE) *********** 


oum 


1 


0067 


.. ****CALL SDOP I , A(OPRN) 


0M0 


f 


0068 


• * 


nuio 


461 


0069 


SDOP: LDA LINK .. FETCH OPERAND ADDRESS 


P4.1 F 


RD 1 


"07" 


PHI MA . . TO MA REGISTER 


OMF 


46» 


0071 


LDA LINK 


pu?n 


An i 


"070 


PLO MA . . FALL INTO SO 




i 


00-^3 


.. 16-RIT SURTRACT AC FROM OPERAND 


0U?1 


i 


00-m 


.. CALL HFRE IF OPERAND 




i 


0075 


.. ADDRESS IN RFGISTFR MA 


oupi 


i 


076 


.. ****AC=M(R(MA) )-AC 


nu?i 


i 


0077 


.. ************ (TO CiLLt WRITF) *********** 


0U?1 


i 


0078 


.. ****CALL SD 


ou?i 


i 


0079 


• • 


04?1 


"ni 


0080 


SOI SEX MA .. SET X PTR TO Ma 


ru?? 


9FI 


0081 


GHI AC ..CHECK SIGN RlT OF AC 




*3l 


00R? 


XOR ..AND OPERAND QMa 




faro j 


0083 


AN I ttPO ..RESULT A 1 IF MFF 




5?i 


"08(4 


STR SP ..AND STORE ON STACK 


0t»?7 


lni 


0085 


INC MA . .POINT TO LOW 8 


0u?R 


RFl 


00«6 


GLO AC .. FETCH AC LOW 8 


0U?Q 




0087 


SD .. SURTRACT FROM LOW 8 IN MFMORY 


0u?A 


AF| 


0088 


PLO AC .. PUT IT RACK 


0u?R 


?n» 


0089 


DEC MA . . NOW HIGH 8 


0n?c 


9F » 


0090 


GHI AC 




33351 


00°1 


RDF SDMB .. (NO BORROW) 


nn?F 


FC^1 1 


O0Q2 


ADI HOI .. PROPAGATE LOW 8 RORROW 


0U31 


3«35i 


0093 


RNF SDNR 


0U33 


F4 1 


ooou 


ADD .. SECOND RORROWl FORCE SORROW OUT 


043U 


3R« 


O0Q5 


»t*38 .. AMD SKIP OVER REGULAR SURTRACT 


0u3"i 


F5l 


0096 


50NR! SD .. SURTRACT HIGH 8 




RF J 


00Q7 


PHI AC .. PUT IT RACK 


0U37 


4?> 


OOQA 


LDA SP ..LOAD STORED COMPARING RlT OF OPERANDS 


0438 


??» 


OOQQ 


HFC SP ..RESET STACK POINTER 


0439 


3?3n i 


oioo 


PZ SDFF ..IF OPERAND'S SIGNS ARE SAMP 




°Fl 


0101 


GHI AC ..NO OVERFLOW POSSIRLE 


iTj3c 


F^i 


01 0? 


XOR ..OTHER WISE CHECK PPSULT 


0U3n 


FCPO 1 


0103 


SDFF! ADI **80 ..SFT DF=0 IF OK 


0U3F 


r>5 » 


01 04 


SEP RFTN ..RFTURN 




i 


0105 


. » 


o^n 


i 


0106 


.. 16-RIT SURTRACT FROM AC ( ADDRESS IN CALL) 


ouuo 


i 


0107 


.. ****ACeAC-OPRN 


0**uo 


» 


0108 


************ (TO CALL* WRITE) *********** 


0440 


i 


0109 


.. ****CALL SMOP 1 ,A(OPRN) 


0440 


i 


011 




04UO 


46J 


01 11 


SWOP:*LDA LINK 


Otai 


pn i 


01 1? 


PHI MA 


044? 


461 


0113 


LDA LINK 


0UU3 


AO > 


01 1U 


PLO MA 


0444 


t 


0] J 5 


.. 16-RIT SURTRACT FROM AC ( ADDRESS IN MA) 
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naaa 
Oaaa 
oaaa 
044a 
Ouuu 
0445 
0446 

0447 

Ouuq 
044a 

044D 

044F 

nasi 
04^? 
0a«s3 
oa54 
0455 
0456 
045P. 

045c 

045F 

0460 
0461 

046? 

Oa6* 
'. 5' )l. T 
0467 

OUfiR 

46° 

046R 
046C 

046r 

047" 
•"1U71 
0471 
0U71 
0U71 
0471 

0471 
"471 

nu7? 

0U73 
474 
0475 
0475 
047=; 



I 
I 
I 
I 
I 
» 

qfi 

F6I 

s?» 

OF I 
F3l 

fa«o i 

F?l 

F4l 

lni 
rni 
RFl 
F7| 

AFl . 

?m 

OF| 
335FI 
FF01 I 
■V35E» 
F3l 
3«l 
FT I 
BFl 
F?» 
FO I 
FAPO 1 
3?6R I 
QFl 

F6I 

F3l 

FA40 | 

F6I 

3?70j 

FFOOl 

H5 J 

I 

I 

I 

J 

I 

I 

I 

46 i 

bdi 

46r 

AO J 
I 
I 
» 



0116 
0117 
"1 lfl 

m iq 

0120 
51 Pt 
0122 

oi 23 
oi ?a 

J?? 

oi?6 
ni?7 
ni ?r 
0129 

01 30 

"13? 
m 33 
01 34 
01 35 
0136 
0137 
013R 
PI 3Q 
ni an 
01 ui 
014? 

0143 
11W 
01 45 
0146 
01 47 

<M 4r 

OJUO 

"150 

01 51 

01 52 
ni 53 
0154 
0153 
01 ^6 
01 57 
015B 
015° 
016n 
01 61 
0162 
01 63 
01 64 
ni65 
0166 
0167 
P16P. 
0169 
0170 
0171 



CALL HERE IF OPERAND 
ADDRESS IN REGISTER MA 
**** AC=AC-M (R (MA ) ) 

************ (TO CALLf WRITE) *********** 
****CALL SM 



<!M! 



SEX M A . ,S?T X PTR 
GHI AC ..GET SIGN OF AC AND 

AND STORE IN 7TH BIT OF CR 
..PUT PUT IN (SP) FIRST 

..AND SEF IF OPERANDS SIGNS ARE THE SAME 



SHR . 
STR SP 
GHI 
XOR 
AN I 

SEX SP 
ADD 

STR SP 
INC MA 
SEX 



AC 



880 ..TAKE OUT COMPARING SIGN rIT 

. NOW STORE THAT RlT IN 8TH OF CR 
..RY ADDING TO IT 

..AND STORE THESE TWO RITS ON STACK 
..POINT TO LOW 8 
MA ..REMEMBER TO SET X TO OPERANDS 



GLO AC 

SM 

PLO AC . , 
HFC MA . . 
GHI AC 
RnF SMNR 
SMI HOI . 
RDF 5 M NR 
XOR . . 
»*3P . 
SMNR: SM . 
PHI AC 
SFX SP 



FETCH AC LOW 8 
SUBTRACT MEMORY FROM IT 
°!JT IT RACK. 
NOW HIGH 8 



PROPAGATE P.ORROW OF LOW 8 



SECOND RORROWl FORCE RORROW OUT» 
WHILE SUBTRACTING HIGH R. 
HIGH 8 SURTRACT, NO RORROW ACROSS. 
.. PUT HIGH P RACK 
..NOW CHECK IF UNDERFLOwED 
LDX ..LOAD THE STORFD TWO RITS 
ANI «80 ..AND TAKE OUT THE COMPARING SIGN RlT 
RZ SMI ..THE SAMEf UNDERFLOW NOT PoSSlRLF 
GHI AC ..OTHFRWISE HAVE TO COMPARE SIGN OF RE 

SHR . .WITH SIGN OF AC 

XOR ..SIGN RIT OF AC WAS STORED ON STACK 

ANI H40 ..TAKE OUT THAT 7TH RIT 

SMi: SHR ..SET OF=0 IF OK 

RZ SMPT ..THE SAME, IT'S OK 

S M I tino . . OTHERWISE SFT 0F=1 

SMRTt SEP RETN ..RETURN WITH DF=NO RORROW 



16X16 RIT SIGNED MIJLTIPLY(2'S COMPLEMENT) 
****AC=Af*OPRN 

************ (TO CALL* WR ITE ) ************ 
*****CALL MPYOP I , A(OPRN) 



MDYOP! LDA LINK ..FETCH MULTIPLICAND ADDRS 
PHI MA . .INTO REGISTER A 
LHA LINK 

PLO MA . .FALL INTO MPY 

.. 16X16 BIT SIGNED MULTIPLY (2»S COMPLEMENT 
.. CALL HERE IF OPERAND ADDRESS 
IN REGISTER MA 
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UH7D 


1 

1 


U I f <c 




****AC=AC*M(R(MA) ) 




1 


0173 




.. ************ (TO CALL, WRITE) *********** I 


0475 


I 


0174 




. . ****CALL MPY 


047R 


1 


01 75 






0475 


FD 1 


n 176 


MPY! 5FX MA .. SET X NOW 


0476 


PFl 


0177 




GHI AC ..CHECK IS THE SIGN OF MULTICANn ■ 


477 


F3 t 


1 78 




X0R . . THF SAME AS THE SIGN OF MIJLTIPR 


047R 


FARO t 


017P 




ANI tlflO ..AND STORE THAT RlT mm 


047 A 


RC 1 


«1 R0 




PHI CP . .INTO CR. 1 


047R 


FPlOi 


01P1 




LOI 810 .. SET COUNTFR TO 16 • 


047D 


Ar » 


ft IP? 




PLO cr 


047F 


FR00J 


01 P3 
01R4 




LDI «00 .. INITIALIZF MQ TO mm 


04RO 


RFI 




"HI MQ ... TO HOLD PRODUCT. 


0UP1 


AF 1 


01PS 




PLO MQ ■ 


04P? 


2C I 


01 P6 




DEC CR ..IF NOT. DECREMENT IT. 


"4 A3 


PFI 


01 R7 




GHI AC .. SHIFT AC (ssMIJLTIPLIFR) RIGHT B 


0UP£< 


F6I 


"1 PP 




SHR 


0UR5 


BF 1 


01 PP 




PHI AC ■ 


04R6 


RFI 


01P0 




GLO AC 


04R7 


3RPD» " 


ftlPl 




RNF *+«06 mm 


0i»RQ 


F6 1 


r 1 0? 




SHR .. SHIFT 1 ACROSS *YTFS .. 


04R A 


FPP0 1 


01 03 




ORI «R0 ■ 


4flr 


3P 1 


1 P4 




»B3R , 


04Pr> 


F6 1 


"1 P5 




SHR .. SHIFT ACROSS RYTES .. mm 


nil nn 

UUnF 


AF 1 


ft 1 r\ c 

n 1 p(s 




PLO AC 


ft I. Of* 


Q r. 1 


ft 1 *T 




GHI MQ ■ 


n /i o n 




ft 1 n 




RNF MPR ..IF NO RlT OUT. DON'T ADD. 


ft Ji no 
U *+Q2 


1 D I 


ft 1 n r» 




INC Ma .. POINT TO LOW 8 OF MULTIPLICAND ■ 




PC t 


ft a n rt 




GLO CR .. IF NOT LAST ITFRATION, 


4P4 


3 A°F 1 


ft a < 
"•20 1 




RNZ MP A .. GO ADD. — 


40ft 


D4 1 


ft *^ ft 

0202 




SEP CALL ..CALL SURTR ACT MQ$(Ma) ROnTINr 


• Ok 07 


04nR J 


0203 




»a(hsmi m 




Fn 1 






SFX MA ..FIX X PTR 




oc i 


0205 




6HI CP . .NOW ARF THE SIGNS OF OPERANnS THE SAME " 


PU.QP, 


FfPrtJ 


0206 


mpr: 


ADI &R0 ..TEST FOR SIGN BIT 


040(1 


30AR 1 


0?P7 




PR MP5+J105 ..IF NEGATIVE. SIGN EXTEND 


04PF 


pa 1 


020P 


vp a : 


S*P CALL ..CALL ADD MQ 8 (Ma) SUR 


04 AO 


rt4Ffl 1 


020° 




.A(DVa) 


QUA? 


Fni 


0210 




SFX MA 


04A3 


33api 


0211 


MPs; 


RDF *+«05 


Of AS 


Ff » 


0212 




LDX 


04A6 


FC«0 » 


021 3 




ADI P80..IF OPERAND IS NEGATIVE* THEN 


04 AR 


on 


0214 




GHI MQ ..PUT MQ.1 INTO D 


04AP 


3RAF 1 


"■21 5 




RNF *+»06 ..EXTEND A 1 FOR -SIGN RlT ■ 


04AR 


F6 1 


0216 




SHR .. SHIFT IN 1 


4 AC 


FopO 1 


021 7 




ORI 880 


04 AF 


3P 1 


rt?1 R 




,*38 


04AF 




0? 1 P 




SHR .. SHIFT IN 


URO 


RF 1 


"■220 




PHI MQ 


ft I,n1 

4R1 


PF J 


ft ^ ^ 4 

0221 




GLO MQ .. CONTINUF tO LOW 8 OF MQ 


04R? 


3RRPJ 


022? 




RMF *+«06 


0UR4 


FA I 


0223 




SHR 


04R5 


FPP0 I 


0224 




ORI *P0 


04R7 


3fll 


0225 




,«38 




04RR 


FA 1 


0226 




SHR 




0UR9 


AF 1 


0227 




PLO MQ 




04RA 


3RC0 I 


022R 




RNF MT .. IF NO CARRY OUT, ITERATE. i 




OUpr 


QFI 


022Q 




GHI AC .. ADD CARRY OUT INTO AC MSR. 




0^ ro 


FPPO 1 


0230 




OR I «R0 _ 
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04PF 


RF t 


0231 




PHI AC 


04co 


PC i 


0?32 


mt: 


GLO CR ..CHECK COUNTFR 


4C1 


3ap2> 


0233 




RNZ MPL ..IF COi INTER IS NOT 0#GO RACK FOR 


04C3 


QF 1 


3234 


MPX! GHI AC .. FINISHED! 


ouru 


FCRO 1 


0235 




ADI t*Pn .. CHECK FOR PRODUCT > 15 RlTS. 


04C6 


fir 1 


n?36 




GLO MQ 


04C7 


3RCRI 


0237 




RNF *+«04 . . THAT ' S HIGH 17 RlTS 


OUCO 


FRFFl 


023P 




XPI 8FF . . ALL 00 OR FF . 


04CR 


3AD2i 


o?3Q 




RNZ *+£07 .. NAW. 


oacn 


QP I 


0?40 




GHI mq 


0"CE 


3RD2 1 


0241 




RNF * + tJ04 


O4no 


FPFFI 


n?u? 




XRI bFF 


04D2 


FCFFJ 


0243 




ADI «FF .. SET DF IF PRODUCT > 15 RITS 


ouhu 


D5I 


02UU 




«;pp PFTN .. RETURN. 


4D5 


t 


0245 




. .SURROUTINE TO RE INCLUDED IN DIV»DIVQ»MDY . 


r>4D5 


ini 


n?u6 


D ARS 


: INC MA . .MQ.O-(Ma) 


04D6 


3RFPI 


0247 




RNF DVA ..IF NO FLAG* Mq.+(Ma) 


04DR 


P* i 


02UR 


n<5M • 


GLO MQ ..LOAD MQ . TO D 


?uno 


F7I 


n?u a 




SM . .mq. n-(MA.n) 


niirn 




0?50 




PLC MQ ..AND STORE PACK INTO MQ.n 


ohdR 


?ni 


0251 




DEC Ma ..DO THE SAME FOR MQ.l 


nunc 


QF» 


0252 




GHI MQ ..LOAD M Q . 1 INTO D 


4DD 


33E5I 


02*3 




RDF ++&0R ..IF NO PO^ROW »sKie> 


4DF 


FF01 1 


0254 




SMI ttiU ..MINNS 1 FOR RORROW 0" IT 


onri 


33F5» 






RDF *+»04 ..IF MQ.l NO ROPROW O 1 IT t SKIP 


04E3 


F3l 


n?56 




XOR ..OTHFRWISF ONLY DO XO" 


4F4 


3RI 


1257 




»«38 ..AND SKIP OVER NORMaL SURTR ACTION 




F7I 


025B 




SM ..MQ.l-(MA.l) 


04F* 


30F6I 


025Q 




PR DVR ..SKIP OVER ADD STE^S 


C4FP 


pr » 


0260 


DVA : 


GLO MQ ..MQ+(MA) 


OtiFci 


FU» 


0261 




Ann -MQ n+(MA 01 


OUFA 


AF) 


0?62 




PLO MQ . ANn PUT RACK INTO MQ.n 


num 


?m 


"263 




dfc ma no thf ^amf por mo 1 ama i 


4EC 


OF » 


"264 




f*nj wri I a a p\ M 1 TMtn r\ 
bnl "W , i LUAU I*' W . I ltNlU (J 


OUFn 


3RF5J 


0?65 




at ic AxtiftQ TP" ma r aBcjy ni it. cK TP r arby A\/C"e> 


04FF 


FC01 1 


0266 




AOl noi ».CAKF<T UVtK bTtr 


04F1 


3PF5I 


0?67 




ni ir , u a / 1 i» 1/ t n * i nn v t r- Kir\ ***ddV bpci ii T 
PNF * + nO t + ..SKIH rARRY IF NO C ARKT RrbiJLT 


4F. T 


F5 1 


026R 




Sf) • • OTHP.K W 1 Sr. IT'S Q ntKf rriJI 11 r3ACfN 


04F4 


3P » 


026° 






4F5 


F4 I 


0270 




AAr\ Ann %acs 1 ampi /ma 1 \ 


^Fft 


RF » 


0271 


U V n . 


PUT MA AMh CTARPT TMTA M(T1 1 


04F7 


r\c. | 


0272 






UFA 


1 


0273 


• 


ei ifipAi it T f ir to rf Tnjti i in p n TN nTv/#nT\/Q 


04FA 


F2 » 


f»274 




• Cry CP , err X TO ^TACK 


fiiiFo 


RF I 


0275 




GLC ^Q ..ADH MQ.O TO ITSELF 


OIF A 


5? » 


0276 




STR SP ..CAUSE MQ.n SHIFT TO LEFT 


04FR 


F4 1 


0277 




ADD . . 


04FC 


AF | 


0?78 




PLO MQ ..AND STORE RACK 


04Fn 


°F 1 


027Q 




GHI MQ ..DO THE SAME FOR MQ.l 


O^FF 




02PP 




STR SP 


OUFF 


3<=>03i 


0?R1 




RNF * + tJ0i4 ..IF NO CARRY OUT»SKIP CARRY OVER 


501 


fcoi > 


02P2 




AD T 001 ..ADD 1 FOR CARRY OVER 


0503 


>n i 


02P3 




ADD ..ADD MQ.l TO ITSELF 


0504 


RPl 


0284 




PHI MQ ..STORE RACK 


0505 


D5) 


02P5 




SEP RETN .. 


0506 


1 


02P6 




.. 3?/16 RlT SIGNED DIVIDE (2'S COMPLFMENT) 


0506 


» 


02R7 




.. ACsMQ, AC/OPRN 


0506 


> 


02PR 




.. QUOTIENT IN AC , REMAINDER IN MQ 
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0506 
0506 
0506 
0506 
0507 
050 8 
050*3 
50 A 
050A 
050 A 
050A 
050A 

050 A 
0ROR 

050C 
050f 
CR10 
051? 

05 m 

0^15 
0516 
0517 
C 51 A 
0^1 a 
0S1R 
0R1R 
ORJF 
C51F 

051 F 
51 F 
0R1F 
51F 
OR20 
O^l 
5?? 
5?3 
5?5 
05?6 
05?R 

OVA 
52R 

05?c 
5?n 

5?F 
C530 

0R3? 

0*34 
5^5 
537 
539 
53R 
53R 
053F 
053F 
0540 
054? 
0544 



I 
I 
I 

U6I 

RDI 

46 » 

API 

I 

I 

I 

t 

I 

FOI 
9FI 

fcbo » 

FAPO I 

3Ft4i 

FRFFI 

RF» 

AFi 

uni 

Fl J 

?ni 

fdoo i 

3R1FI 
r>5i 

t 

l 

> 

I 

9FI 
PC I 
RFl 

a c » 
04 i 

OUFfll 
9Fl 

fabo t 

322C t 
1FI 
3fl» 
PC I 
3A34 I 
or » 
FR40 » 
32301 
ar I 
F ACO I 
FDOOJ 
FCRO J 

33ro» 

PC l 
EP» 
F3J 
FAPO I 
FD00I 
04 » 



0289 
0290 
0291 
0?P2 
0293 

02O5 
0296 
02Q7 
02QR 
0299 
0300 
0301 
030? 
0303 
0304 

0306 
0307 
030R 
0309 
031 n 
031 1 
0312 
0313 
0314 
031R 
0316 
0317 
031 fi 

031 9 
032" 
0321 
03?? 
03?3 
0324 
0325 
0326 
0327 

032 a 
032° 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
033R 
0339 
0340 
0341 
0342 
0343 
0344 
0345 



.. ************ (TO CALL* WRITE) *********** 

.. CALL DIVOP I ,A(OPRN) 

nlVOP! LDA LINK .. FETCH OPERAND ADDRESS 
PHI Ma .. TO RFGISTER MA 
LDA LINK 

PLO MA .. FALL INTO DI VO/DIV/DIVQ. 

32/16 RIT SIGNED DIVIDE (2'S COMPLEMENT ) 
, OPTION «lt CLFAR MQ AND CHECK FOR ZERO D 
****AC=MO» AC/M(R(MA) ) 

************ (TO CALL. WRITE) *********** 
****CALL DIVO 
DIV01 SEX MA .. SET X TO POINT TO DIVISOR (0) 
GHI AC .. LOOK AT AC SIGN (0) 
HBO . . COPY IT TO DF (0) 

*-lO .. EXTEND £00 IF POSITIVE. (0) 
*+HOi* ., (0) 

ttFF .. ttFF IF NEGATIVE. (0) 
MQ .. GIVING +0 OR -0 IN MO (n) 
MO .. (0) 

MA .. CHECK FOR ZFRO DIVISOR (0) 
.. (0) 

MA .. (DON'T FORGET TO FIX POINTER ) (0 ) 
«00 .. IF ZERO. CALL IT DIVIDE CHECK(O) 
..GO ON IF NO DIVIDE CHECK ERR 



ADI 

Lni 

RNF 
LDI 
PHI 
PLO 
LDA 
OR , 
DEC 
SOI 

RNF DIV 

SFP RETM ..AND RETURN WITH DFcl (0) 
... OPTION «2: PFRMIT 32-RlT DIVIDEND f (/) 
... MAKE SURF QUOTIENT DOES NOT EXCEED 16 RITS(/1 
.. ************ (TO CALL. WRITE) *********** 
..*****♦ CALL RIV 
DIV! GHI MQ ..SAVE PARTIAL DIVIDEND (/) 

PHI CP ..INTO CR.l (/) 
GLO MQ . . (/) 
PLO CR ..AND CR.O(/) 

SEP CALL ..CALL SHIFT LFFT ROUTINE (/) 
.A(DSHL) ..(/) 

GHI AC ..ALSO SHIFT HIGH OF AC(/1 

ANI 8R0 ..(WHICH IS THE 16TH RlT)(/) 

RZ D7 ..RUT IF O.SKIP SHIFT(/) 

INC MO ..IF 1, SHIFT INTO MQ ( / ) 

»»3A ...(/) 
07: GLO CR ..SEE IF MQ.O =0(/) 

RNZ D2 ..IF NOT GO THROUGH CHECKING STFPS</) 

GHI CR ..SEE IF MQ.l I<5 «40(/) 

XRI «40 ..WHICH SHOULD RESULT IF TRUE ( / ) 

RZ 04 ..IF TRUE. SKIP NORMAL CHECKING ( / ) 

02! GHI CR ..CHECK IF HIGH ? RITS OF MQ ARF THE SA^c" ( / 

ANI «C0 ..TAKE OUT 2 HIGH BITS(/> 

SOI POO ..SEE IF THEY ARE THE SaMf(/) 

ADI **80 ..IF NOT. HIGH RlT IS 1(/) 

RDF DVXX . .SET DF AND RETURN ( / ) 
04: GHI CR ..LOOK AT THE SIGNS OF DIVND AND MVSRt/> 

SEX MA ..POINT X TO DIV«;R(/) 

XOR ..(/) 

ANI ttfiO ..IF DIFFERENT, RESULT 80(/) 
SOI SOO ..SFT DF IF SaME(/) 
SEP CALL ..CALL ABS(MQ-(MA)) SUR(/) 



r 
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0SU5 


04D5 | 


0346 




> A (DABS ) 


. .(/) 


0547 


ED I 


0347 




SFX 


MA 


. «SFT X TO DIVS0R(/1 


54 P 


°c 1 


0348 




GHI 


CR 


-LOOK AT THE SIGN OF nlVINnf/) 


54o 


FCBO 1 


034P 




ADI 


t(80 


.OF-1 IF nlVND 1^ MFfi(/i 


54R 








RMF 


U V tz 


IF MOT. nONIT rrtMPL MPWT n T FFFRr Mr F f / 


ft Cli M 

i 1 r>un 


9r 1 






ftUT 
bn 1 




ftftUnl ^WbiT Uft A t / \ 


n Kit a 


f O i*i • 


ft w r o 






«oo 


n V ft ) If i ftTTMP rnAU ft\f / \ 

..RY StJRTRACTING FROM n(/J 




cr i 
nr # 






PHI 


MQ 


..STORE RACK INTO MQ.1(/) 


551 


AF 1 


0354 




GLO 


MQ . 


.00 THE SAME FOR MQ.0</> 


055? 


32 5C t 


0355 




RZ 


DV2 


. .RUT IF 0»NO NEED TO(/) 


554 


Op | 


0356 




GHI 


MQ . 


. (/) 


555 


FF01 J 


0^57 




SMI 


t-ni 


. . OTHERWISE 00 R0RROW FROM MQ.1(/) 


557 


RF 1 


035B 




PHI 


MQ . 


. (/) 


0558 


BFI 


035a 




GLO 


MQ . 


.DO COMPLMENTATION FOR MQ . ( / ) 


55P 


fdoo » 


0360 




sol 


Hftft 


..RY SURTRACTING FROM 1/) 


055B 


AFl 


0361 




PLO 


MQ . 


. AMD PUT RACK INTO MQ , ( / ) 


0S5C 


°Fl 


036? 


ov?t 




GHI MQ ..NOW LOOK AT THE DIFF Or MQ8(MA)</> 


05*;d 


32651 


0363 




RZ mo 


..IF 0. CHECK MQ=n SPECIAL CASES(/) 




FCPn i 


0364 




API 


tfBO 


..CHECK IF MQ IS NEGATIVES) 


0561 


33C5i 


0365 




RDF 


DDQ 


..IF YES » NO PROBLEM (/) 


563 


3ftRFi 


0366 




rr DO 


.IF NOT NOR NEG t DIVND IS TOO LARGE f/ 


0565 


RF» 


0367 


D10 ! 


GLO MQ 


..HERE WE CHECK DlFFsO CASES (/) 


566 


FCFF 1 


036B 




ADI 


t-FE 


..IF MQ.O IS NOT EITHER n OR 


568 


33C0 » 


0369 




RDF 


DVXX 


..THEN DIVND IS STILL TOO LARGE (/) 


56A 


FRFF | 


0370 




XRI 


t-FF 


..RESULT IF MQ.O WAS ^(/) 


56C 


3AA1 » 


0371 




PNZ 


DVH 


..IF NOT, MUST RE ft, GO TO DVH(/) 


5ftF 


°r i 


0372 




GHI 


CR 


..SEE IF DIVND IS NEGATIVES) 


ft56F 


fapo i 


0C3 7;<s 




ANT 


«ao 


. . RESULT 80 IF YES(/> 


571 


32RF » 


0374 




RZ 


DP 


..IF DIVND POSITIVE, IT CANNOT OlVlDPf/ 


573 


F4 I 


0375 




ADO 


..SEE IF nlVISOR IS POSITIVES). 


574 


33C0I 


0376 




RDF 


DVXX 


..IF NEGATIVE, DIVND CANNOT DIVIDE </> 


57ft 


ofi 


0377 




GHI 


AC 


..MOW CHECK IF AC+(Ma)>0 IF LOW AC IS ( 




Fu t 


n^7B 




ADD 


. .AC.l + (MA.l > (/) 


578 




037° 




PHI 


MQ . 


. AMD STORE SUM IN MQ.1(/) 


5T° 


mi 


0380 




INC 


MA 


.00 THE SAME FOR LOW AC S(MA.0)(/> 


057A 


BF 1 


0381 




GLO 


AC 


..LOAD AC.O INTO 0(/) 


057R 


F4 t 


0382 




ADO 


. . AC 


.0 TO (MA.O) (/) 


057C 


AF 1 


0.^83 




PLO 


MQ . 


.(/) . 


57r> 


3RB3 1 


0384 




RMF 


*+£06 


..SKIP CARRY OVER IF NO CARRY 0UT(/) 


057F 


or i 


n ^a^ 




GHI 


MQ . 


.DO CARRY 0VER(/> 


5P0 








ADI 




..RY ADD 1 TO MQ.l (/) 


0582 


RF 1 


PHOT 




PHI 


MQ . 


. (/) 


583 


en i 


n-<po 




LDX 


..NOW HECK LOW RlT (MA) IS OR 1 (/) 


584 


F6 > 


0389 




SHR 


..SHIFT THAT LOW RlT OUT(/) 


0585 


2o» 


03P0 




npc 


MA . 


.REMEMBER TO RESET Ma</) 


5P6 


OF» 


03P1 




GHI 


MQ . 


.READY TO ADD *-B0 (/) 


587 


3R«r t 


0392 




RMF 


*+tf05 


..IF LOW RIT OF AC IS 


58a 


FffiO I 


03Q3 




ADI 


*-B0 


..TO MQ. 1 (/) 


5RR 


RF 1 


03p4 




PHI 


MQ . 


.SAVE STATUS(/) 


05RC 


FCB0 » 


395 




ADI 


880 


. .SEE IF MQ >f</) 


5BF 


or i 


03O6 




GHI 


CR . 


.SEE IF DIVND IS POSITIVES) 


58F 


F ABO 1 


03Q7 




ANI 


«80 


. .RY TAKING OUT THE SIGN BIT(/) 


05Q1 


3AQ7I 


0398 




RNZ 


*+ao6 


..IF NOT, GO THROUGH DIFF CHECK (/) 
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r\ r- f~, "X 


loop t 


uo w 




Ol ft r U ^ « • J r ML" 1 "HI y* — KJ r D ML" ft / 1 


0595 


30C5 1 


ft. Il A ft 

040 




on f*.ftLft nrUrD UTr p TC Alf # V 1 

RR DDQ ..UTnFRWISCl IS OM/I 


0597 


9F 1 


All ft 1 

0401 




ft LJ T MA MA — A-W/\ 




33C0 1 






cincr mi Y Y tc kirftATTV/P". yupM fil t"T f y > 


59A 


3AC5 I 






BNZ. DUU «*lr NUT 1 TntlN NU KKUoLcMt/J 


059C 


RF J 


0404 




ftlft UA kJ * W ft*" Ollftr* 1j(A ft Tft A "TAAf*! 

GLO MQ ..MAKE SURE MQ . 15 TUOl/) 


5<->o 


3?RFl 


0405 




fti ~r ftft~\ Tp~ v*-ftft vi i**M nrTI inn UITTLJ nr < 1 y \ 

RZ D9 ..IF YFS» THtN RFTURM WITH DF=1 (/) 


05QF 


30C5 1 


0^06 




RR DDO ..OR FLSF GO TO OIvIDFl/) 


C5A1 


Of |. 


0407 


DVH ; 


ft—- 1 I Y ... —ft, .ft Iftl V ft— - --ft- ■ } —-ft ft—V ft-> ftft — fttftm . 1 1 -— Mm ftf— ▼ /A** L | ^ — _ 

GHI CR ..SFF IF THF OPERANDS SIGNS DlPF( 


05A? 


F3 > 


040fl 




X0R ,.RY COMPARING SIGN RlTS(/. 


05 A3 


FARO 1 


0409 




AMI ttRO ..AND TAKE OUT THAT BIT(/) 


0RA5 


3A76I 


nam 




BM2 D10+ttll ..IF SINGS DIFF# IT'S 0K(/) 


r>5A7 


on 


nail 




GHI CR ..OTHERWISE TEST SIGN OF DIVNq(/) 


05AR 


FCRO J 


n 4i? 




AD 1 «80 ..IF POSITIVF. RETURN WITH DF=1 (/) 


"5AA 


"•.RRF. 


045 3 




RNF D Q ..RFTURN WITH DFr 1 ( / ) 


05AC 


mi 


0414 




INr MA ..SEE IF LOW RlT OF AC IS OR !(/) 


BAD 


F0 | 


0415 




LDX ..LOAD THAT IN □(/) 


05AT 


?P 1 


0416 




HFC MA ,.REMEMRFR TO "t^cT MA (/ J 


5 AF 


F6 1 


All 4 T 




• lib r u T r r •tlj*t oTt ai it f / t 
>HR .*SHIFT THAT HIT OU'C/J 


5R0 


BF l 


A Ii 1 O 




/■i n * /* tf Aim Tp mat n mat DoPini crM / y\ 


A C 4 


1 t ft c ■ 

T*rn i . 


' ■ — J. ^ft 




RNZ DDQ ..GO TO DIVIDE (/) 


A i^n > 


nr i 


"4?n 

■.•HiCU 




GHI AC ..READY TO CHECK HR0 IF LOW BIT AC IS 


a c~.o ii 


JJnn 1 


n/iot 

UHc 1 




RDF *+W06 .. (/) 


ft rn / 

r>no 


« 1 n p t 

.i?nr 1 






BZ DP ..NO GOOD, RETURN WITH DFrl (/) 


n brb 


ft. A ft C ■ 


ftllA-l 

(14<i."> 




RR DDQ ..ANY THING ELSE IS 0K(/) 


5R a 


FBRO 1 


nil ft. ii 
04?-+ 




XRI «R0 ..IF AC.l IS'NT H80(/) 


o bbc 


3ACB 1 


A ll *■> 




BNZ DDQ ..IT'S 0K(/J 


5BF 


FFno t 


0426 


r>9t 


SMI «0O . . DF IS SET TO 1 (/ ) 


obco 


°C t 


0427 


OVXX! GHI CR ..PUT ORGINaL DIVND</-*) 


05C1 


BF I 


04?fl 




PHI MQ ..INTO MQ ( / ) 


05c? 


PC 1 


0429 




GLO CR . . (/) 


05C3 


AF » 


0430 




PLO MQ . . (/) 


05C4 


P5i 


0431 




SEP RETN ..AND RETURN WITH DF=1(/) 


ows 


Of | 


0432 


odq. 


GHI CR ...PUT 0RGINAL DlVNnf/) 




PFf 


0<433 




PHI MQ ..BACK INTO MQ (/ ) 


"?"ir7 


pr i 


0434 




GLO CR . . (/) 


05CA 


AF, 


4 35 




PLO MQ (/) 


05CQ 


i 


0436 




... OPTION J33: ASSUME BENIGN PROGRAM t NOCHECK 


05C9 


» 


0437 




.. ************ (TO C ALL t WRITE) *********** 


obcq 


t 


04 3R 




.. ****CALL" DIVQ 


05C9 


9P| 


0439 


DIVQ 


t GHI MQ ..LOOK AT DIVIDEND SIGN 


5r a 


fc ro i 


4 4 




ADI «R0 .. IF POSITIVE f 


o 5cc 


F PQO I 


044 1 




LOI fcQC .. PLAN TO BF6IN WITH SUBTRACT r 


05CF 


3RD? J 


04^2 




RNF *+«0-+ .. (ALSO SAVE SIGN OF DIVIDEND ) 


5DO 


FP.50 » 


ft Ii Ii "X 




LDI «50 .. OTHER WISF BEGIN WITH ADD. 


A "r ft. »""» 

fin? 


Aft* 

A" » 


fWl It 4 




PLO CR .. SET ITERATION COUNT IN CR.O 


A e r\ -t 


ft. Ii • 




nvLi 


SEP CALL ..CALL LEFT SHIFT SUB 


A r n i, 

u r>n4 


ftl.pft t 


ft li Ii £ 

U 4 r> 




. A(DSHL) 


5D6 


RF 1 


ft ii ii ~» 




GLO AC . . NOW DO AC 


05D7 


5? 1 


ft It Ii D 
1 1 U H Pi 




STR SP . . 


A C: ft. c» 

OdDR 


p~ ii t 
F4 1 


All Ii Q 




ADD 


5D9 


AF i 


0450 




PLO AC 


5da 


QFI 


0*51 




GHI AC 


Obhr 


521 


0452 




STR SP . . 


5DC 


3RF4 1 


0453 




BNF ++P0B 


05DF 


FC01 1 


0454 




ADI «01 


05E0 


3RE4 l 


04 55 




BNF *+tt04 


5E2 


F5> 


0456 




SD .. DON'T LOSE CARRY OUT 


5E3 


3R» 


0457 




.«3fl 



1 (/) 



5E4 


F4| 


0458 


5F5 


RFI 


0U5Q 


05r6 


3P.F9I 


0460 


5FR 


1FI 


0461 


5FQ 


FOI 


0462 


05FA 


RCI 


0463 


5ER 


F3I 


0464 


5FC 


FCPO 1 


0465 


05EF 


D4I 


0466 


C5FF 


04D5I 


0467 


05F1 


FDI 


0468 


P5F? 


2r i 


0469 


5F3 


ACI 


n.470 


05F4 


FA7FI 


0471 


5F6 


3RFR t 


0472 


5F8 


1KI 


nU73 


5F9 


FQftO 1 


0474 


5FR 


ACI 


"475 


05PC 


FA3FI 


0476 


5FF 


3AD3I 


0477 


Of.no 


3320 i 


047ft 


0*P? 


3«l 


047a 


06"3 


1FI 


04P0 


0604 


F3I 


nafti 


0605 


fcroi 


OUP? 


0607 


101 


oup3 


060ft 


RFI 


04ftU 


06^0 


33161 


nuft5 


060n 


PUt 


04ft6 


060r 


AFI 


ftUfl7 


06nn 


?r>» 


048P 


0*0F 


OFI 


napq 


060F 


3P13I 


04Q0 


061 1 


FC01 I 


04al 


061 3 


F4 | 


0UQ2 


0614 


301FI 


04Q3 


0616 


F7l 


0494 


0617 


AFl 


04Q5 


OM ft 


?m 


04Q6 


0619 


QFI 


04Q7 


061 A 


331FI 


0" OP. 


061C 


FFOl j 


OUOq 


061F 


F7» 


0500 


061 F 


RFI 


0501 


0620 


PEl 


0502 


0621 


3A26J 


0503 


0623 


PFI 


0504 


0624 


^234> 


0505 


626 


pr > 


0506 


0627 


FA40 i 


0507 


0629 


ftco i 


050ft 


0*2R 


QF I 


050° 


062C 


33301 


0510 




FRftO 1 


051 1 


0630 


FCRO 1 


0512 


632 


3R03I 


0513 


0634 


FO » 


0514 


0635 


FCPO 1 


0515 


0637 


3R44 l 


0516 


063o 


ftFl 


0517 



ADD 

PHI AC 

BMP *+«03 .. BIT SHIFTED OUT OF AC.1» 
INC MO .. GOES INTO MQ.O 
SEX MA 

GLO CR NOW. WAS THAT ADO» OP SUBTRACT? 

XOR . . IT DFPFNDS ON SAVED FLAG . 

ADI 080 .. AND SIGN OF DIVISOR. 

SFP CALL ..CALL ABS (MQ— (MA ) ) SUB 

. A (DARS) 

SFX MA 

DEC CR .. COUNT DOWN ITERATION cOUNTFR 
GLO CR 
ANI «7F 

RNF *+0O5 .. TEST CARRY OUT OF ADD/SURTR ACT 

INC AC .. IF 1. SHIFT INTO QUOTIENT » 

ORI 080 .. AND FLAG NEXT OP AS SUBTRACT. 

PLO CR .. OTHERWISE IT'S ADO. 

ANI H3F .. LOOK AT COUNTER J 

RNZ DVL .. IF NOT 0. LOOP BACK I 

RDF DVR .. AT END. CHECK REMAINDER ADJUST. 

.038 

DVCl INC AC .. (FINAL DIVIDF STEP) 
XO» .. BE SURE TO GET POLARITY 
ADI 080 .. OF ADJUSTMENT RIGHT... 
INC MA .. YES. ADD DIVISOR BACK ON. 
GLO MO .. TO CORUFCT FOR FINAL SURTR ACT. 
RDF DVM .. (ADDING NEGATIVE IS SUBT.) 
ADD .. WHICH SHOULDN'T HAVE. 
PLO MO 
DEC MA 
GHI MQ 
BNF *+b04 

ADI KOI .. NO NEED TO SAVE CARRY OUT 
ADD 

RR DVR-B01 
OVMt SM .. SAME THING. 

PLO MQ .. EXCEPT, FOR NEGATIVE DIVISOR. 

DEC MA 

GHI MQ 

RDF * + H04 

SMI 001 

SM 

PHI MQ 

DVR! GHI MQ .. IF RFMAINDER IS NOT ZERO, 
RNZ * + 0O5 
GLO MQ 

RZ DVN .. RUT IT ISl NO PROBLEM. 

GLO CR .. IF NOT ZERO. 

ANI P40 .. IT SHOULD BE SAME SIGN 

ADI 0CO .. AS ORIGINAL DIVIDEND. 

GHI MQ 

RDF *+0O4 

XRI 080 

ADI «80 .. IF NOT. WE NEED 
BNF DVC .. ONE MORE DIVIDE ITERATION. 
DVNJ LDX .. FINALLY. IF DIVISOR NEGATIVE* 
ADI 080 

BNF DVX ..(IT'S NOTI WE ARE DONE) 
GLO AC .. COMPLEMENT QUOTIENT, 
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n a 




051 fl 


XR I «FF .. BY INVERTING IT 


u hJt 


A C i 
fir 1 


n.51 q 


PL o Ar 




OP I 


U -.1/1 u 


GHI AC 


u not 


rope « 

r fir r * 


0521 


XRI HFF 


u OH U 


or | 


0522 


PHI AC 


i- OH X 


1 F 1 

X r r 


0523 


INC AC . . THFN INrRFMFNTlNG 




r i..uv # 


0524 


AOI **00 .. ALSO CLFAR OF- 


644 


D5 1 


0525 


DVXt SEP RFTN .. DFaO IF DIVIDE SUCCESSFUL. 


645 


1 


0526 


• * 


0645 


I 


527 


RINARY TO DECIMAL CONVERSION 


0645 


1 


05?fl 


.. ****0ECIMAL NUMBER r AC 


064R 


t 


052° 


.. DECIMAL NUMRER s SIGN, NO »N1 , N2 »N3» . . 


0645 


l 


fi5?0 


. . 5IGN=H0R + 


064 5 


i 


0531 


. . SIGN=tt0O - 


064S 


t 


053? 


.. N0cin**0 DIGIT 


0645 


1 


0533 


.. Nlrl0**l DIGIT, ETC 


0645 


1 


0534 


». ************ (TO CALL » WRITE) *********** 


06U5 


i 


0535 


.. ****CALL CRD I »A( NUMBER) » LENGTH 


0645 


UA t 


0536 


CPDJ LDA LINK .. GET DECIMAL ADDRESS 


C A46 


P, A I 


"537 


PHI A» 


Ati7 


4 61 


Q53R 


LDA LINK 


ftk R 


AA 1 


053° 


PLO AR 


'J O W " 


HA t 
»+o • 


fi5un 


1 nA 1 TNK GET <^I7E I U \ 

UUM 1— 1 1 1 1^ a • UL 1 73AAC \ * 1 


n A/i a 
U r>u A 


IQt 

A H # 


nei] 1 

U JH 1 




A A /i Q 


not 


ORti9 

U O 1 * A 


PHT MP 




t- HIM } 1 


i>r>H^ 


I riT Hon cTflpr mtmiic ix i 


a A/t c" 
u o 1 * r 


r i ■ 
i p I 


U DH H 


PTD AO , 


U ry 1 * ^ 


VJ r 1 


AK/i R 

'J ~ H 7» 


GHT Ar CFT PIE TF Pn^TTTUF 

Onx A v_ 3C.I Ur Ar rUil 1 I Vc 




c n ^F i 


ft mi a 

*J *.1H O 








5^ 7 


SEX AR 


Of,?;? 


P4 1 

1 • H • 


054R 


SEP TALL .. NOW CHANGE SIGN TO MATCH 


654 


f!6 AO 1 


0549 


,A( DZS) 


065ft 


3350 > 


0550 


ROF *+K07 


OftSR 


Oi) » 


0551 


SEP CALL .. SET AC POSITIVE 


0659 


nui 51 


0552 


,A( SDCON) 


0ft5R 


on i 


0553 


, tfno 


65C 


00 l 


0554 


,»00 


0650 




0555 


SFP CALL .. PUSH AC INTO STACK, 


06'sr 


f)AF° » 


0556 


t A ( PUSHAC ) ■ 


0660 


FP00 ( 


0557 


LOI POO ONLY TO REPLACE IT 


066? 


50 I 


055R 


STR MA . . BY A DIVISOR OF 10 


u oo « i 


1 n i 

1 Ll * 


055° 


INC MA 


u o oh 


FCf) A I 

r nun • 


056 n 


LDI P0A 


ft AAA 

\J oo o 




0561 


STR MA 


U OO ' 


SI ) 1 


n sap 


DEC MA 


A A A Q 

U ooo 


O n i 

AO 1 


ft er AX 

1 JO.) 


cri f nrr np . ofcremfmt rt^tt rm imt 


ft a A n 

■J oo'J 


RP f 


ft c; Aii 


ki n mr rurrK fmm 


66 A 


3?7F » 


n r>or> 


Q7 i>pv 7pra Tc n\/CDrri au 


66C 


FRQ t 


ft c:a a 


1 nT h n ft 

LUl n 1 ■ U 


ft A A F~ 

■J ftfth 


A f f 


ft c: A T 
I' r>o ' 


pi n mo 


66F 


RF I 


ASA R 


PH I MQ 


0670 


D4 1 


0«S6Q 


SEP CALL .. DIVIDE BY 10 


0A71 


n 5r Q » 


0570 


,A( DIVQ) 


673 


1A 1 


0S71 


INC AR .. (<•) 


674 


PEI 


T57? 


GLO M0 .. REMAINDER IS THIS DIGIT 


0675 


5AI 


0573 


STR AR 


0676 


RF> 


0574 


GLO AC .. CHECK FOR NON-ZERO 


677 


3A6PI 


0575 


BNZ CRL 


0679 


QF » 


0576 


GHI AC 


067A 


3A6R« 
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67A 


3A68» 


0577 




BNZ CBL CONTINUE IF MORE DIGITS 


067C 


F6» 


0578 




SHR .. CLFAR DF FOR SUCCESS 


670 


3R| 


057Q 




»«38 


067F 


F5» 


0580 


CRX: SD .. SET OF FOR FAILURE 


067F 


121 


0581 




Twr «p . , POP STACK (THAT TFN) 


0680 


l?i 


058? 




INC SP 


0681 


051 


05R3 




SE ;p RfTf N .. DONE. 


0682 


1 


058t 






06P? 


1 


0585 






060? 


1 


0586 






06fl? 


I 


0587 




.. RFSTORE RESULT POINTPR 


0*82 


3RR5I 


0588 


DRP 


: bmf *+£03 .. SAVF FLAG IN NR . 


6BU 


1RI 


05RQ 




INC NR .. (ASSUME WAS 0) 


^685 


F?i 


05Q0 




SEX SP .. PUSH SAVED DIGIT COUNT 


6R6 


oRl 


0591 




GHI NR .. INTO STACK 


06R7 


5?l 


059? 




STR SP 


06PR 


a a i 


05Q3 




GLO AR .. SUBTRACT FROM RESULT ADDRESS 


689 


F7I 


f)SQ4 




SM -.. (<) 


06RA 


A A J 


0595 




PLO AR 






0596 




RDF *+tf06 .. (=) (<) 


0*RD 


OA 1 


0597 




GHI AR .. RORROW FROM HIGH RYTE (=) 


6PF 


FF01 i 


59R 




SMI J*01 .. (=>(<) 


16"0 


RA 1 


0599 




PHI AR .. ( = ) i 


0*91 


OR J 


0600 




GLO NR .. RECOVER DF 


6Q? 


F6I 


0601 




SHR 


069? 


FOl 


060? 




LDX .. POP SAVED COUNT t 




API 


0603 




FLO NR .. INTO NR.O 


06°5 


051 


060U 




SFP RETN .. RETURN 


6Q6 


1 


0605 






696 


«lA 1 


0606 


DZR 


: STR AR .. STORE A RYTE 


0*Q7 


1 Al 


0607 




INC AP .. ADVANCF TO NEXT (<) 




?RI 


0608 




DEC NR . . CHECK COUNT 


069° 


RRI 


060Q 




GLO NR 


OftQA 


3?P2l 


061 n 




BZ DRP .. AT 1 GO RESTORE POINTERS 


069C 


fpoo j 


061 1 




LDI BOO .. CONTINUE STORING 


OfcQF 




061? 




BR DZR 


06A0 


I 


0613 




.. COMPARE SIGNS. AND CLEAR RESULT (ADDRESS 


06AO 


FOOR J 


061^ 


DZS 


: LDI HOB .. IF. DF=0. TRY "+ M ( + ) 


CftA? 


3RA6I 


0615 




RNF *+HOU 


0*AU 


FflOni 


0616 


LDI HOD .. OTHFRWI^F «_n (+) 


6A6 


F3« 


0617 




XOR .. COMPARE TO PRESENT M(R(X)) 


C6A7 


?S?AB> 


061R 






06A9 


FP06> 


0619 




LDI 806 . . NOT EQUAL* SO CONDITION MINUS(+) 


06AR 


FR0PI 


06?0 




XRI BOB .. IF EQUAL SET PLUS (+) 


06AD 


30Q6I 


06?1 




PR DZR .. GO STORF, WITH ZERO IN RESULT. 


06AF 


t 


06?? 




• • 


06AP 


1 


06?3 




.. 16-BlT ADD TO AC. OPERAND ADDRESS IN CALL 


06AF 


1 


0624 




.. ****AC=AC+OPRN .. 0PRNr2 BYTE OPERAND 


06AF 


1 


0625 




.. (TO CALL. WRITE) **s;*t*tti4* 


6AF 


1 


06?6 




.. ****CALL ADDOP 1 ,A(OPRN> 


06AF 


1 


0627 




« • 


06AF 


1 


0628 




• . 


06AF 


U6I 


0629 


ADDOP ! LP A LINK .. FETCH OPERAND ADDRESS 


Of.RO 


RD« 


0630 




PHI MA .. TO REGISTER MA 


06R1 


t*6 J 


0631 




LDA LINK 


06R? 


AOl 


0632 




PLO MA .. FALL INTO ADD 


6R3 


t 


0633 




16-RIT ADD TO AC. OPERAND ADDRESS IN REG I 


6B3 


1 


0634 




.. CALL HERE IF OPRN ADDRESS 


06RS 


I 


0635 




.. IS IN REGISTER MA 


06R3 


» 


0636 




.. **fc*AC=AC+M(R(MA) ) 
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6R3 


I 


0637 


■ . ■ _ ■_ m _ . . a . t . ■ . * . j . ■ § f\ A fell — |_J ^> ▼* w % k ft * ■ . . . j ■ j _ . 

. . ************ (TO CALL* WRITE) *********** 


06R3 


1 


0638 


. . ****CALL ADD 


06B3 


f 


0639 


. • 


06R3 


FOI 


0640 


AODt SEX MA ..CHECK SIGN RlT OF AC 


06R4 


9F| 


0641 


6HI AC ..GET THE OPERAND 


06R5 


F3l 


0642 


XOR ..AND OPERAND ClMA 


6P6 


FA80I 


0643 


ANI H80 ..RESULT A 1 IF DIFF 


06RR 


52 1 


0644 


STR SP ..STORE ON STACK 


06RQ 


lni 


0645 


INC MA ..POINT TO LOW 8 RITS 


06RA 


RFl 


0646 


GLO AC .. FETCH AC LOW 8 


06RR 


F4i 


0647 


ADD . . ADD LOW 8 FROM MEMORY 


06RC 


AFl 


0648 


PLO AC .. PUT IT RACK 


6nn 


201 


0649 


DEC MA .. POINT TO HIGH 8 MEMORY LOCATION 


6RF 


QFI 


0650 


GHI AC 


06RP 


3PC7I 


0651 


RNF ADDNC 


06C1 


FCOl J 


0652 


AOI «01 .. ADD IN CARRY OUT OF LOW 8 


96C3 


3PC7I 


0653 


RNF AODMC .. (OMIT 3 LINES IF CARRY OUT NOT 


06C5 


F5I 


0654 


SD .. OOPS» THAT CARRIED OMT» LEAVING Ot 


6C6 


38 > 


06f=i5 


»«38 .. FINISH ADD » FORCING CARRY TO 1. 


06C7 


FUi 


06^6 


ADDNC I AnD .. ADD HIGH 8 


o*rR 


RFl 


0657 


PHI AC .. PUT IN AC. 


06C° 


U? I 


0658 


LDA SP ..LOAD THE STORED COMPARING SIGN BIT 


06C A 


221 


06FiP 


DEC SP ..RESET STACK PTR 


06CR 


■^Ar>6i 


0660 


RNZ ADDRT ..NOT POSSlRLE 


6rn 


QFI 


0661 


GHI AC . , OTHERWISE SEE IF SUM IS RIGHT 


06CF 


F3I 


0662 


XOR ..RY COMPARING SIGN RITS 


06CF 


FARO 1 


0663 


ANI PRO ..TAKE OUT THE COMPARING BIT 


601 


32061 


0664 


RZ ADDRT ..IF SAME » THEN NOT OVERFLOWED 


06D3 


FCFFJ 


0665 


ADI «FF ..OTHFRWISE» SET DFcl 


6D5 


381 


0666 


»t*38 


606 


F6I 


"667 


AOORTt SHR ..SHIFT OUT INTO DF 




05 1 


0668 


SEP RETN ..RETURN TO MAIN 


6D8 


1 


06fia 


• * 


0608 


1 


0670 


.. t6-RlT CONSTANT ADO TO AC. 


^608 


I 


0671 


.. CALL HERE FOR ADD CONSTANT TO AC 




I 


0672 


.. ****AC=AC+CONSTANT 


0608 


1 


0673 


... ************ (TO CALL* WRITE) *********** 


6D8 


I 


0674 


.. ****CALL AODCON 1 t CONSTANT 


06DP 


I 


0675 


• • 


0608 


861 


0676 


AODCON: GLO LINK .. COPY LINK TO MA 


06D9 


AOI 


0677 


PLO Ma 


06DA 


P6I 


067R 


GHI LINK 


06DB 


R0» 


0679 


PHI MA 


06DC 


161 


0680 


INC LINK .. INCREMENT PAST DATUM 


60D 


161 


0681 


INC LINK 


G60F 


30831 


0682 


RR ADD . . GO ADD. 


06F0 


1 


0683 


• a 


06FH 


I 


06R1 


.. 16-RIT ADD FROM TOP OF STACK 


06F0 


Q2» 


0685 


AD05T: GHI SP .. COPY STACK POINTER 


06F1 


pni 


0686 


PHI MA .. TO MA REGISTER 


06E2 


821 


0687 


GLO SP 


06F3 


AOI 


06R8 


PLO MA 


06F4 


101 


068Q 


INC Ma .. ADVANCE TO SUR-TOP ( Q ) 


06F5 


101 


069D 


INC MA .. (0) 


6F6 


in> 


0691 


INC MA . . <p) 


06P7 


30R3» 


06°2 


BR ADD .. GO DO IT 


6FQ 


1 


0693 


• • 


06EO 


1 


06Q4 


• • 


06F9 


1 


06Q5 




6EP 


1 


06P6 


.. PUSH AC INTO STACK 



I 

I 
I 
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"06F9 
06E9 

■ 06FQ 

■ Pfifq 

06F° 
06FA 

I06FB 
06FC 
06FD 
06FE 

■ 6FF 
g06F0 

*6F1 
06F? 

I0 6F3 
6F4 
6F5 
O6F6 
' T6P7 
y 06FR 
06FQ 
06FA 

I06FR 
6FC 

OftFn 

6FF 
B06FF 
|0 6FF 

07"0 
0701 

1071? 
0713 
0704 
071S 

■ 0706 
B0707 

071P 
070P 
I 70 A 
1 070R 
O70C 
070n 
I 070F 
I 07PF 
0710 
0711 
I 071? 
| 0713 
0714 
071^ 
■ 0716 
g 0717 
071 R 
071 q 
PI 071 A 

U 07 1P 

071C 
071D 
071F 
071F 



I 
I 



I 
I 
I 
I 

a? 1 
R0» 
ft? I 
AD» 
1DI 

ini 
Fn» 

FOI 

*2 I 

?n> 
??» 
F0| 
5? I 
PF» 
501 
PF» 

im 

?o» 
22 » 

D5l 
I 

roj 

52 » 
221 

°n» 

5?> 
o? 1 

pn> 

P2 I 
AQ» 
22 I 
101 
101 

ini 

RFl 
*2« 
22 I 
°F» 
52 I 
22 » 
ro» 
FOi 
52 1 
?2> 
20» 
Fn 1 
<S2i 
221 
PC 1 
501 
10» 
PC I 
50 » 
D5I 
I 



0697 
06 PA 
0699 
0700 
0701 

070 2 
0703 
1704 
0705 
0706 
0717 

0708 
0709 
0710 
0711 
0712 
0713 
0714 

071 5 
0716 
0717 
071ft 
0719 
0720 
0721 
0722 
0723 
0724 
0725 
0726 
0727 
072A 
72° 
0730 
0731 
0732 
0733 
0731 
0735 
0736 
0737 
073P 
073P 
0740 
0741 
074? 
0743 
0744 
0745 
0746 
0747 
074ft 
074P 
0750 
0751 
752 
0753 
0754 
0755 
0756 



STACK POINTER = SP 
************ (TO CALL, WRITE) 
****CALL PUSHAC 
PUSH AC (UNDER TOP OF STACK) 



******** 



PUSHAC ! 


GHI SP .. COPY STACK POINTER TO Ma 


PHI 


MA 




GLO 


SP 




PLO 


MA 




INC 




NOW SLICE OFF TOP 2 BYTFS r 


INC 


MA 




SEX 


MA 




LDX 


.. TO 


m a'KF a o.dytf urn r 


STR 


SP 




DEC 


MA 




DFC 


SP 




LD* 






STR 


SP 




GHI 


AC . . 




STR 


Ma 




GLO 


AC 




INC 


MA 




str 


MA 


Lr AVF MA POINTING TO IT 


DEC 


ma . . 


DEC 


SP 




SEP 


RETN . 


. (AC UNCHANGFD) 


PUSH CF 


> MA r MQ (UNnER TOP OF STACK 


PIJSHCQ! 


GLO MA 


.. FIRST PUSH MA ONTO TOP 


STR 


SP 




DEC 


SP 




GHI 


MA 




STR 


SP 




GHI 


SP .. 


NOW COPY KP TO MA 


D HI 


MA 




GLO 


SP 




PLO 


MA 




DEC 


SP 




INC 


MA .. 


THEN ADJUST IT 


INC 


MA 




INC 


ma • • 


TO POINT INTO OLD TOP 


GLO 


MQ .. 


CONTINUE PUSHING, MQ 


STR 


SP 




OFC 


SP 




GHI 


MQ 




STR 


SP 




OFC 


SP 




SFX 


MA .. 


NOW COPY OLD TOP TO NEW TOP 


LOX 






STR 


SP 




OFC 


SP 




OFC 


MA 




LOX 






STR 


SP 




DEC 


SP 




GHI 


CR 


FINALY INSERT CR IN HOLE 


STR 


MA 




INC 


MA 




GLO 


CR 




STR 


MA 




5FP 


RFTN . 


. (MA IS GARBAGE OUT) 



I 
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071F 


1 


0757 




POP STACK INTO MQ, MA, CR (UNDER TOP OF S 


071F 


121 


0758 


POPCQ I 


INC SP 




0720 


<52 1 


0759 


GHI 


SP . . 


COPY STACK POINTER TO MA 


0721 


RDI 


0760 


PHI 


MA 




0722 


R2I 


0761 


GLO 


SP 




0723 


AD 1 


0762 


D1 A 


MA 




0724 


ID t 


0765 


T M/* 

1 NC 


MA . , 


ADJUST POINitR TO CR DATUM 


0725 


1 » 


ft T A ll 

076M- 


T Kir 


MA 




0726 


4 M ■ 

1 D 1 


U (OD 




M A 




727 


ID 1 




TMr 


MA 




ft «, O D 

Q 778 


4 pt i 
)DI 


ft 7A7 




MA 

"A 




o too 


H} 9 


1/ / on 


INC 


Ma 




U I £. A 


HI) I 




1 HA 


M A 

PHA • • 


crTrH TT 

rr iLn 11 


n Ton 


Of* 1 


0.770 

v r ru 


PHT 




1 


U 7<T_ 


> 


U ' / J 


1 HA 


M A 

MA 




n Tin 


AC » 


n7"ip 


01 n 

■ L_u 






ft 7or 


on 1 


ft 773 


nrr 


M A 

MA • • 


i*nPY TAP OP eTAf K TWTrt RAP 


U 7*rr 


OPi 1 


f177ti 

U 1 / 


U" t 


M A 
MA 




ft *n ft 


it ■ 

M 2 1 




1 Ha 






ft ~n * 

073 J 


SO I 


ft "7*7 A 


CTD 


14 i 

MA 




0732 


ini 


0777 


T M/~ 
X NC 


MA 




0733 


42 > 


077R 


1 r\ a 


SP 




073^ 


501 


077O 


STR 


MA 




0735 


4?| 


07P0 


LOA 


SP . . 


THEN POP MQ 


0736 


BFI 


0781 


PHI 


MO 




0737 


421 


07R2 


LDa 


SP 




0738 


A^l 


07P3 


PLO 


MQ 




073O 


421 


07R4 


LDA 


SP .. 


FINALLY POP 'ma 


073A 


pn i 


0785 


r-\i 1 ▼ 

PHI 


MA 




073R 


42 1 


07P6 


LDA 


SP 




C73C 


AOl 


07R7 


PLO 


MA 




073D 


22 1 


ft ~T n ft 

07RR 


Dt C 


SP 




073* 7 


DB J 


D 78^ 


be r 


RETN 




'J friF 


1 


n7on 


• • 


16-BIT 


ACCUMULATOR LOAD (ADDRESS IN CALL) 


P 7.">F 


I 


n7ni 

U 1 V J 


• • 


****AC 


=0PRN 


ft •» T F~ 

73F 


1 


ft "700 


• • 


************ (TO CALL, WRITE) *********** 


73F 


1 


ft "T n"* 


• • 


****CALL LOADOP t , A(OPRN) 


73F 


I 


07 Q 4 


• • 






073F 


46 t 


ft T/-» R 




LDA LINK .. FETCH ADDRESS 


0740 


RD 1 


ftTnA 


PHI 


MA • • 


TO MA REGISTER 


74 1 


46 1 


ft T n*7 

P7v7 


LDA 


LINK 




074? 


AD 1 


07P8 


PLO 


MA . . 


FALL INTO LOAD 


743 


1 


07QQ 




1 6-BIT 


ACCUMULATOR LOAD (ADRRFSS IN Ma) 


743 


1 


QR00 




CALL HERE IF OPERAND 


07U3 


1 


0R01 




ADDRESS IN REGISTER MA 


0743 


1 


0R02 




****ACcM(R(MA) > 


07U 3 


1 


0803 




************ (TO CALL, WRITF) *********** 


07U3 


1 


0804 


.. ****CALL LOAD 


0743 


1 


0805 








743 


4D« 


0806 


LOAD: LDA MA 


. , FFTCH HIGH 8 


0744 


RFl 


0R07 


PHI 


AC 




0745 


4DI 


0808 


LDA 


MA .. 


NOW LOW 8 


07U6 


AFl 


080Q 


PLO 


AC . . 


LEAVE Ma AT NEXT DOUBLE-BYTE 


7^7 


D5I 


0R10 


SFP 


RETN 


. . GFE, THAT WAS QUICK. 


7UR 


1 


0R11 






ACCUMULATOR LOAD FROM CONSTANT IN 


07UR 


» 


OPl? 




16-BIT 


07UR 


1 


0R13 




* It** AC 


^CONSTANT 


07UR 


1 


0814 


.. ************ (TO CALL, WRITF) *********** 


074R 


1 


0P15 




****CALL L0DC0N 1 , CONSTANT 


074R 


1 


0816 
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P7UP 


16 t 


817 


L0DC0NJ LDA LINK . . FETCH HIGH 8 


07UQ 


RF 1 


0P1R 


PHI AC 


074A 


461 


0B1Q 


1 k_ m t • k it j ftft> t f mm k 1 i A i 1 /-\ 

LDA LINK .. THEN LOW 8 


7UB 


AF 1 


0P20 


PL0 AC 


07UC 


D5I 


0R21 


SEP RETN 


07un 


1 


0R22 


• • 


07UD 


1 


0R23 


.. 16-BIT ACCUMULATOR STORE (ADDRESS IN CALL 


074D 


1 


OR? 4 


****0PRN=AC 


07un 


t 


TR25 


.. ************ (TO CALL* WRITE) *********** 


07an 


1 


rfl?6 


., ****CALL STOROP 1 »A(0PRN) 


07an 


1 


0P27 




07un 


461 


OP?P 


STOROPt LDA LINK .. FETCH ADDRESS INTO MA 


074E 


rdi 


P?Q 


PHI MA 


074F 


46 l 


0R30 


t r\ a IT Ml/ 

LDA LINK 


0750 


ad i 


fi n T 1 


rLU "A 1 ntN r ALL AWT U b i U^r 




i 


U HJ<' 




P 751 


t 


il AHH 




n "re; 1 


. 
t 


u n j w 


************ (TO r AL I • WRITF) *********** 


U 751 


i 






0751 


i 




• • 


0751 


QF t 


np37 


5T0PF J unl AC rlHSI nlbn r 


75? 


50 1 


0P3R 


STR MA 


0753 


1 n » 


CR3Q 


INC MA «, INCRfc"rNT "IAa SlNrt ( 5TR DOESN'T 


75U 


BF 1 


0PUO 


SM A A/* ■ 1 A 1,1 | am Q 

GLO AC . • NOW LOW « 


0755 


soi 


0P41 


STR MA 


0756 


1DI 


0B42 


INC MA . . LEAVE MA POINTING TO NEXT WORD 


0757 


D5I 


npu3 


SFP RETN « . QUIT i 


075P 


t 


npuu 


• • 


075P 


f 


0PU5 




075P 


1 


0846 


.. 16-RIT COMPARE » OPERAND ADDRESS IN CALL 


75P 


I 


084 7 


****AC-0PRN (OF SET IF OR +) 


075P 


1 


opap 


.. ************ (TO CALL » WRITE) *********** 


0758 


1 


PP4Q 


.. ****CALL COMOP » »A(0PRN) 


7^R 


t 


0P50 


. . 


075P 




0P51 


C0MP0P! LDA LINK .. FFTCH ADDRESS 


075Q 


RDI 


nP5? 


PHI MA .. TO MA REGISTER 


P75A 


461 


0R53 


LDA LINK 


075R 


Am 


l>R54 


PLO MA 


075C 


i 


0R55 


. . 16-RIT COMPARE* OPERAND ADDRESS IN RtGIST 


075C 


i 


0P56 


• • CALL HEh£ IF OPFRArJD 


u 7r^C 


t 




• • ADD" t bb -ilN Ktolbit" "A 


7r>r 


i 


A o c o 


« m IK^c ftL"^ I" ("A i 1 IDr St 1 lr 't UK t } 


0750 


i 


0R5Q 


# « *** v *isX* ITU CALLr WRlTfr. J *5C**«**5;*** 


075C 


i 


1860 


» a, *.***call comp 


0750 


i 


3P61 




075C 


m» 


9862 


. Akin ■ m~ r-*\J tit A^AUOlBC* 1 1 T PI i Q f-npT 

rOMP! bFX MA • • COMPARc HIGH 8 FR5T 


075n 


QF" 1 


0P63 


GHI AC ..CHECK IF SIGN OF OPERANDS ARE SAME 


75F 


F3I 


0R64 


X0R ..RY LOOKING AT THE HIGHEST SIGN BIT 


075F 


FARO 1 


0R65 


_ , , w a a *-\ am. m— ~~ ■ j 1 ^m a | a | m> a | ~ - a w- ^ * a ar— 

ANI «60 ..RESULT A '1' IF NEGATIVE 


07*1 


3A6C » 


0R66 


BMZ CNE ..IF N0T» THEN GO TO CNE 


076"^ 


QF 1 


0P67 


GHI AC 


764 


F7 J 


0868 


SM 


765 


3A6H» 


0P6Q 


RNZ CMPX .. NOT EQUAL QUITS 


07*7 


IDI 


0870 


INC MA . . TRY LOW 8 


76P 


RFl 


0R71 


GLO AC 


0769 


F7 1 


087? 


SM 


076A 


?n» 


0873 


DEC MA .. LEAVE Ma POINTING TO IT 


076R 


3R» 


0874 


.838 


076C 


F4I 


0R75 


cne: add ..see if OPERAND IS NEGATIVE 


0760 


051 


0R76 


CMP 
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0760 


D5I 


0876 


cmpx: 


SFP RETN ..DF=1 IF AC>=(MA) 


076E 


1 


0877 






076E 


1 


0878 




• 


076F 


» 


0879 


. . DECIMAL TO BINARY CONVERSION 


76E 


1 


0880 


****ACcDECIMAL NUMBER OF N BYTES 


076F 


1 


0881 


.. DFCIMAL NUMBER = SlGN.Np , Nl , N2# N3 ... 


076r 


1 


0882 


.. SIGN = 80B + 


076F 


1 


0883 


.. SIGN r 800 - 


076F 


1 


0884 


.. N0=10**0 DIGIT 


076F 


t 


0885 


.. NlslO**l DIGIT* FTC 


076E 


1 


0886 


.. ************ (TO CALL» WRITE) *********** 


076F 


1 


0887 


.. ****CALL CDB 1 » A (NUMBER ) 1 LENGTH 


07ftE 


t 


PR88 






076F 


«6I 


0R8Q 


CPRt LDA LINK GET DECIMAL ADDRESS 


076F 


RAI 


0890 


PHI 


AR 


0770 


4ft« 


0801 


LDA 


LINK 


0771 


AA 1 


0802 


PLO 


AR 


077? 


4ft > 


08P3 


LDA 


LINK .. AND SIZE ( 8 ) 


0773 


AR t 


089U 


PLO 


MR 


077U 


?R| 


0895 


DFC 


NR ..MINUS ONE FOR SIGH 


077=1 


FA t 


08°6 


SEX 


AR .. LOOK AT SIGN <•> 


776 


HM 


0897 


LOA 


AR .. (<) 


777 


FP0D 1 


08°8 


XRI 


POD .. IS IT MINUS? (+) 


077P 


327DI 


089Q 


COS! RZ 


*+«04 .. 800 IF YES» 


77R 


FRFFl 


0Q00 


LDI 


BFF .. 8FF IF NO! 


077P 


PRI 


0P01 


PHI 


NR . . REMEMBER THAT 


77F 


FP00I 


090? 


LDI 


800 .. INITIALIZF AC TO 


0780 


AFl 


0°03 


PLO 


AC 


0781 


RFJ 


090U 


PHI 


AC 


0782 


8RI 


0905 


GLO 


NR . . GO TO OTHER END 


783 


521 


090ft 


STR 


SP .. BY ADDING SIZE 


07BU 


F?i 


OP07 


SFX 


SP 


0785 


R A t 


0P08 


GLO 


AR .. TO ADDRESS 


07Rft 


F4 J 


0900 


ADO 


.. (<f) 


787 


A A I 


0910 


PLO 


AR 


0788 


3RRF 1 


OPll 


RNF 


CDL .. (r)(<) 


07RA 


QA 1 


0912 


GHI 


AR .. PROPAGATE CARRY ( = ) 


078R 


FC01 1 


0913 


ADI 


801 .. ACROSS RYTFS ( = )(<r) 


7BO 


RA 1 


OoiU 


PHI 


AR <e) 


07PF 


8RI 


0P15 


CDL! GLO NR ,. ANY MORE DIGITS 


78F 


32C1 1 


0Q16 


RZ 


CDX .. NO 


0701 


2RI 


0017 


DEC 


NR .. YES. 


0702 


nt« 


001 8 


SEP 


CALL .. MULTIPLY AC * 10 


0703 


06F9I 


0Q1Q 


r A( 


PUSHAC) 


795 


04 > 


0°20 


SEP 


CALL .. FROM STACK 


070ft 


07iJRI 


0°21 


»A( 


LODCON) 


0708 


no i 


OP?? 


»800 


07PP 


OA I 


0o23 


tttOA 


07PA 


pa i 


0024 


SEP 


CALL 


7PR 


0^751 


0Q?5 


»A( 


MPY) 


079D 


3RA2I 


0026 


BNF 


*+805 ..IF NOT OVERFLOWED » SKIP EXIT 


70F 


121 


0P27 


INC 


SP ..RESET STACK 


07A0 


121 


0Q28 


INC 


SP .. 


07A1 


051 


00?0 


SEP 


RETN ..OVERFLOW EXIT 


07A? 


04 1 


0O30 


SEP 


CALL .. SAVE PRODUCT IN STACK 


7A3 


0751 » 


0931 


• A( 


STORE) 


07AS 


2AI 


003? 


DEC 


AR .. (<") 


07A6 


UA 1 


0033 


LDA 


AR .. NOW GET DIGIT 


07A7 


2AI 


003U 


DEC 


AR 


07A8 


FAOFl 


0P35 


ANI 


80F .. REMOVE OVERBITS 
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07AA 


AF 1 


0936 




PLO 


AC 




07AB 


FflOO 1 


0937 




LDI 


«00 




07An 


BFI 


0o3R 




PHI 


AC 




07AF 


nti 


0939 




SEP 


CALL 


.. ADD TO PREVIOUS NIJMBFR 


07AF 


OftFOl 


0940 




. A( 


ADDST) 


7B1 


121 


0941 


CD0 


: Inc sp 




07R2 


12 f 


0942 




INC 


5P 




07B3 


3BAFI 


0943 




RNF 


CDL . 


. ADVANCE TO NFXT DIGIT 


07R"S 


BR 1 


0Q44. 




GL0 


NR . 


.NO MORE DIGIT? 


7B6 


3AC0 t 


0°45 




BNZ 


CDRT 


..OVERFLOWED 


07B8 


°R 1 


Oqi+6 




GHI 


NR . 


.POSITIVE NIJMBFR? 


7RQ 


3AC0 I 


0947 




BNZ 


CDRT 


. . OVERFLOWED 


7RR 


2F t 


094R 




0FC 


AC . 


.IF AC IS «B000 IS OK 


7BC 


OF 1 


flaUq 




GHI 


AC . 


.Tr-ST THAT BIT 




pr AO i 


0QS0 




AOI 


«80 


• • 


7RF 


IF J 


0PR1 




INC 


AC . 


.REMFMBFR TO RFSET AC 


~rrn 




0QB2 


CDRT! 


SEP 


RFTN ..OVERFLOW RETURN 


fl ~7r 1 






cox: 




GHI NR ..NO. LOOK AT SIGN 


U t\ r 


v> it ( . " 1 


AQC(| 




PNZ 


*+P07 


.. POSITIVE 


\ 1/* It 


n/i i 


Arcr 

■ 1"— n 




SFP 


CALL 




n i r K 








»A( 


SDCON) .. NFGATIVF. SUBTRACT FROM 


P ~rr 7 

\j ' i i 


U • J • 






»SP0 




7rft 




flcSA 




r«no 




D7C9 


FC00 1 


095P 




ADI 


ttOO . 


. CLEAR DF 


07CR 


n»$ i 


0960 




SFP 


RFTN 


.. DFrO IF OK. 


07CC 


1 


0961 




• • 






07CC 


1 


0°62 




..TEST 16- 


RIT ACCUMULATOR SIGN/ZERO 


7CC 


16» 


C '63 




INC 


LINK 


..SKIP OVER NON ZERO RETURN 


7CD 


1 ftl 


0964 




INC 


LINK 


• • 


7CF 




0965 




SEP 


RETN 




07cf 


9F 1 


0966 


tfst: ghi ac 


.. FIRST LOOK AT SIGN 


7D n 


FCBO I 


0°67 




AO I 


HRO 


..SET DF IF MINUS 


70? 


QF t 


PP6R 




GHI 


AC .. 


NOW CHECK FOR 


7P3 


i^Ace i 


0«6Q 




RNZ 


TFST- 


*03 .. NO. 


0705 


RF 1 


0Q70 




GL0 


AC 




7D6 


32CFI 


007 1 




RZ 


TFST-fcOl .. GO TAKF Z^PO FXIT. 


708 


30Cf 1 


0972 




RR 


TEST-tir-^ .. GO TAKF NON-ZERO EXIT. 


07PA 


t 


0973 






POP STACK (INTO AC) (UNDER TOP) 




1 






.. 


= 0PS 2 


BYTES FROM STACK INTO AC 


fi 7r» a 

u / n fl 


■ 
■ 


fl 07 c; 




• « 


************ (TO CALL, WRITE) ******** 


n 71-1 A 

u /nfl 


I 


W M ' O 






****CALL POPAC 




rcfln l 
r r '.i'.i 1 


Pi Q7 7 

W . f f 


POPACt <;MI H00 .. ^FT F TO RFMFMBFR THIS ENTRY 


7DC 


3DF0 i 


i: )78 




BP 


* + P04 




u /of 


r /• n n i 


097Q 


POP! ftOl «00 


. . CLEAR DF FOR THIS ENTRY 


/t i' 


1 O 1 


noon 




INC 


SP 




A ?r 1 

U / r ) 


nO t 
u < i 


1 1 ^ r* J 




GHI 


SP .. 


COPY SP TO MA 


V ft J 


Q r\ t 

Hr.l i 






PHI 


MA 








U W f) *J 




GLO 


SP 




jr. 


a n i 


KJ ~7 tl 




PLO 


MA 




D7F t > 


1 D » 


0QP5 




INC 


MA .. 


ADJUST TO SUR-TOP OF STACK 


7F6 


10 » 


09«6 




INC 


MA 




07F7 


3BFF, 


0987 




BNF 


*+«0R 




7=-Q 


40 1 


OORR 




LDA 


MA .. 


POPPING INTO AC. GET DATUM 


07FA 


RF 1 


09R9 




PHI 


AC 




7FB 


40 1 


OoqO 




LDA 


MA 




7FC 


AF 1 


0991 




PLO 


AC 




7FO 


?D I 


0P92 




DEC 


MA . . 


RESTORE POINTER 


07EF 


20 1 


0QQ3 




DFC 


MA 




07FF 


£42 J 


0Q94 




LDA 


SP .. 


NOW CLOSE UP THE GAP 


07F0 


SDI 


099^ 




STR 


MA 




P7F1 


1.0) 


0P96 




INC 


MA 




7F2 


42 » 


0997 




LDA 


SP 




7F3 


fSOl 


0998 




STR 


MA 




07F4 


ID) 


C999 




INC 


Ma 




07F5 


221 


1000 




DFC 


sp 




07F6 




1001 




SEP 


RETN 


. . MA POINTS TO NEW SUB-TOP 


07F7 


» 


1002 




END 






0000 
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Appendix B(1I) - 
Arithmetic Subroutine 
Listing for CDP1802 



000 




0001 




000 




0002 




0000 




0003 


..COPYRIGHT 1976 RCA CORPORATION 


0000 




0004 


.. COSMAC ARITHMETIC SUBROUTINE PACKAGE 


000 


1 


0005 




000 




0006 


.. VERSION 1.1 FOR COP1B02 


0000 




0007 




0000 




000B 


.. EXTRACTED FOR BINARY ARITHMETIC 


I coo 




OOOP 


.. AND CONVERSIONS FOR DECIMAL 


(1(1(1(1 




0010 


.. OCCuPlFS IK RYTES 


0000 




0011 




n nnp 




001? 




n nnn 




001 3 


.. DESIGNED FOR STANDARD CSDP SUBROUTINE rALL * RETURN 


0P0P 




0014 




0000 




0015 


.. FOR STANDARD LINK AGE » 


OPPn 




0016 


SP= 802 ...IT SHOULD RE THE .STACK POINTFR. 


0000 




0017 


PC= «03 ...IT 1=; THE PROGRAM COUNTER 


"no 




001 A 


.. USED BY THESE SUBROUTINES. 


onnn 




nni o 


CALL= P04 ...IT SHOULD POINT TO THE ROUTINE 


000" 




020 


.. WHICH EFFECTS SURROUTlME CALLS. 


onop 




nn?1 


RETNr «05 ...IT SHOULD POINT TO THE ROUTINE 






nn;?? 


.. WHICH FFFECTS SURROUTlME RETURN. 


nnnp 




on?3 


LINK- P06 ...IT SHOULD POINT TO CALL PARAMETER 


onnn 




00?4 


.. .. (USUALLY OPERAND ADD^ESSrS ANn/OR CONSTANT) 


noo" 




0025 


• • 


nnrin 


1 


002* 


• • 


OOOn 


1 


0027 


.. THE FOLLOWING PEG ISTE* S MUST RE ASSIGNED 


oonn 


1 


002* 


AR- *PA ..(USED FOR RESULT ADDRESS) 


Oonn 


1 


P02Q 


0000 


f 


0030 


MR- t»0B ..(USED FOR PENULT DIGIT COUNT) 


0000 




0031 


.. 16-RIT RINARY ARITHMETIC ROUTINES 


0000 




003? 


.. THE FOLLOWING REGISTERS MIJST RE ASSlGNEO 


0000 




0033 


AC= «PF .. 16-nIT ACCUMULATORrRF. 


oono 




003U 


MQ= tiPE .. lft-RlT ACCU W UL ATORrRE FXTENSION. 


pnnn 




oo:ss 


MA= vr\0 .. (TEMPORARY) OPERAND MEMORY ADDRPSS. 


nooo 




3* 


CR = *0C .. (TEMPORARY) SCRATCHPAD AND COUNTER. 


OOn 




nn^7 


• « 


0000 




003A 


• - 


0000 




nn;jo 


.. SWAP AC WITH MQ REGISTERS 


n nnn 


or i 


0040 


«;WAPAQt GHI MQ .. SAVE MQ.> 


0001 


AC « 


OO'H 


PLO CR .. IN CR.O (COULD HAVE PUSHED ON STAC 


non? 


OP f 


nnu? 


GHI AC . . NOW AC.1 TO MO. 1 


0003 


re > 


00H3 


PHI MO 


OOQU 


FFl 


OPHU 


6L0 MQ . . SAVE MQ.n 


ooo^ 


RF J 


P045 


PHI AC IN AC.1 


Of. 


RF t 


00ti6 


GLO AC . . THEN AC.O TO MQ.O 


00 7 


AF» 


00^7 


PLO MO 


OOOP 


QF > 


ooua 


GHI AC .. NOW SAVED MQ . P TO AC . 


oono 


AP I 


004Q 


PLO AC 


OOOA 


*c i 


OO^O 


GLO CR .. FINALLY SAVED MQ.l 


OOOn 


RFl 


00S1 


PHI AC .. TO AC.1 
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I 



oooc 


D5i 


0052 


SEP RETN 


ooon 


t 


0053 


.. 16-BIT SUBTRACT AC FROM CONSTANT 


oooo 


1 


0054 


.. ****AC= CONSTANT-AC 


oodo 


1 


0035 


************ (TO CALL» WRITE) *********** 


0O0D 


t 


0056 


****CALL SDCON I » CONSTANT 


OOOD 


B6I 


0057 


SDCONt GLO LINK .. (ESSENTIALLY SAMF as ADCON ) 


O00F 


A0» 


005R 


PLO MA 


OOOF 




005Q 


GHI LINK 


0010 


RDI 


0060 


PHI MA 


00] 1 


Ifil 


0061 


INC LINK 


oni? 


1AI 


00A2 


INC LINK 


0013 


301QJ 


0063 


BR 5D 


001 Pi 


f 


0061 


• • 


0015 


1 


006R 


.. 16-BIT SUBTRACT AC FROM OPERAND 


is 


1 


0066 


.. ****AC=OPRN-AC 


001 5 


t 


0067 


.. ************ (TO TALLf WRITE) *********** 


0) 5 


t 


OOftfl 


.. ****rALL SDOP 1 , A(OPRM) 


om* 


1 


0069 


• • 


oni* 




R070 


SROP! LDA LINK .. FETCH OPERAND ADDRESS 


001ft 


RDI 


0071 


PHI MA .. TO MA REGISTER 


0017 


461 


007? 


LDA LINK 


aoifl 


AD t 


0073 


PLO MA .. FALL INTO SD 


001 q 


1 


0074 


.. 16-BIT SUBTRACT AC FPOM OPERAND 


001 Q 


1 


0075 


.. CALL HFRE IF OPERAND ' 




1 


0076 


. . ADDRESS IN REGISTER «A 


0019 


1 


0077 


.. ****ACcM(P (Ma) )-AC 


oniQ 


t 


007R 


.. ************ (TO CALLr WRITE") *********** 


OOlo 


t 


O07Q 


.. ****CALL SD 


001Q 


J 


0OR0 


• • 


omo 


FD 1 


nop) 


SDt SFX MA .. SFT X PTR TO Ma 


01 A 


9FI 


nop2 


GHI AC ..CHECK SIGN BIT OF Ar 


OOjR 


F3I 


00R3 


XOR ..AND 0°FR AND QMA 


ooir 


5? I 


ooru 


STR SP ..AND STORE ON STACK 


001D 


mi 


nnps 


INC MA ..POINT TO LOW R 


001F 


P.FJ 


00P6 


GLO AC . . FFTcH AC LOW B 


OMF 


FS» 


0087 


SD .. SUBTRACT FROM LOW fl IN MFMORY 


0020 


AFI 


008P 


PLO AC .. PUT IT RACK 


0021 


?m 


008Q 


DFC MA . . NOW HIGH R 


00?? 


OFf 


OOQO 


GHI AC 


00?3 


7*1 


OOQl 


SONR » SDR .. SURTRACT HIGH P 


oo?u 


RFl 


0092 


PHI AT .. PUT IT RACK 


oo?*; 


02 » 


00Q3 


LDN SP ..LOAD STORED COMPARING BIT OF OPE* 


On?* 


FFl 


0CQ4 


SHL ..CHECK STORED SIGN COMPaRISION BIT 


0?7 


3R?r i 


"0Q5 


RNF SDFF ..IF OPERAND'S SIGNS ARP SAMF. 


00?Q 


OF I 


O0Q6 


GHI AC ..NO OVERFLOW POSSIRLF 


002A 


F3i 


0097 


XOR ..OTHER WISE CHECK RESULT 


00?B 


FFl 


noon 


SHL . . SET DF=0 IF OK 


00?c 


R5i 


OOqq 


SDFF 1 SFP RETN ..RETURN 


oo?o 


1 


0100 


* • 

.. 16-RIT SUBTRACT FROM AC (ADDRESS IN CALL) 


00?D 


1 


0101 


oo?n 


I 


0102 


.. ***6AC=AC-0PRN 


0020 


1 


0)03 


.. ************ (JO CALL. WRITE) *********** 


0020 


1 


0104 


.. ****CALL SMOP » tACOPRN) 


oo?n 


1 


0105 




on?n 


4ftl 


0106 


SMOPt LDA LINK 


On?r 


rri 


01 07 


PHI MA 


Oo?f 


4fcl 


OtOP 


LDA LINK 


030 


AO» 


0.1 nq 


PLO Ma 


031 


» 


0110 


.. 16-RIT SUBTRACT FROM AC ( ADDRFSS IN MA) 



I 
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0031 


1 


01 1 t 


. . CALL HERE IF OPERAND 


0031 


1 


0112 


ADDRESS IN REGISTER MA 


0031 


t 


0113 


.. ****AC=AC-M(R(MA) ) 


0031 


1 


0111+ 


************ (TO CALL, WRITE) *********** 


0031 


1 


OUR 


.. ****CALL sm 


0031 


t 


0116 


• • 


031 


PDI 


01 17 


sm» sfx ma ..set x ptr 


03? 


QFI 


01 1R 


GHI AC . .GET SIGN OF AC A NO 


"033 


F6I 


01 1° 


SHR ..ANO STORF IN 7TH. RIT OF CR 


0034 


*?l 


0120 


STR SP ..BUT PliT IN (SP) FIRST 


003S 


QFI 


0121 


GHI AC ..AND SEE IF OPERANDS SIGNS ARE THE SAMp 


036 


F3l 


0122 


XOR 


0037 


FARO 1 


0123 


AN I »80 . . T AKF OUT COMPARING SIGN P.IT 


003O 


F? 1 


01 24 


SEX SP ..NOW STORE THAT RIT IN 8TH OF CR 


03A 


F4 1 


0125 


ADD ..BY ADDING TO IT 


003B 


5? 1 


0126 


STR SP ..AND STORE THESE TWO RlTS ON STACK 


03r 


mi 


0127 


INC MA ..POINT TO LOW 8 


003D 


FD 1 


012R 


SEX MA ..RfMFMRER TO SET X TO OPERANDS 


003F 


PFI 


012O 


GLO AC .. FETCH AC LOW B 


003F 


F7I 


0130 


SM .. SUBTRACT MEMORY FROM IT 


0040 


AFI 


0131 


PLO AC .. PUT IT^BACK. 


0041 


201 


01 32 


DEC Ma .. NOW HIGH R 


0042 


OFI 


0133 


GHI AC 


00*43 


771 


0134 


smnb: SMR .. HIGH R SUBTRACT, no b6rpow ACROSS. 


nnuu 


PFI 


0135 


PHI AC .. PUT HIGH R RACK 


004=; 


F?l 


0136 


SEX SP ..MOW CHFCK IF IIMDFRFLOWED 


0046 


Fni 


0137 


LDX ..LOAD THE STORED TWO BITS 


Oout 


FFl 


013R 


SHL ..AND TAKE OUT THE COMPARING SIGN BIT 


our 


3R4r 1 


01 39 


BNF SMRT ..THE SAME * UNDERFLOW NOT POSSIBLE 


004a 


5? 1 


"140 


STR SP .. p UT IT BACK TO STACK 


OOtlH 


OFI 


0141 


GHI AC ..OTHERWISE HAVE TO COMPapf SIGN OF RESULT 


ouc 


F3l 


01U2 


XOR ..ST6N BIT OF AC WAS STORFD ON STACK 


004D 


FFl 


0143 


SHL . . TAKF OUT THAT 7TH BIT 


004F 


05 1 


OJUt* 


SMRT t SEP RETN ..OF=0 IF SUBTRACTION OK 


004F 


1 


01^5 


• * 


ooup 


1 


0146 




04F 


1 


0147 


..16X16 BIT SIGNED MljLTIPLY(2'S COMPLpMpNT) 


OliF 


1 


1 4R 


. ,****AC= AC*O p RN 


004F 


1 


0149 


. .************ (TO CALL, WR ITF ) ************ 


04F 


1 


01 50 


. .*****CALL MPYOP 1 »a(OPRN) 




* 


nisi 


• • 


004F 


46 1 


01 52 


MPYOP: LDA LINK ..FETCH MULTIPLICAND ADDRS 


oso 


pd 1 


0153 


PHI MA ..INTO REGISTER A 


051 


46 1 


0154 


LDA LINK 


n 0^0 


AD 1 


01 55 


plo ma . .fall into mpy 


OOR^ 


1 


0156 


.. 16X16 BIT SIGNFD MULTIPLY (2«S COMPLEMENT) 


00S3 


1 


0157 


.. CALL HERF IF OPERAND ADDRESS 


0OS3 


1 


01 5R 


.. IN REGISTFR Ma 


053 


1 


015Q 


.. ****iC=AC*M(R(MA) ) 


053 


1 


0160 


.. ************ (TO CALL, WRITE) *********** 


053 


1 


0161 


****CALL MPY 


05.T 


1 


0162 


' • • 


OOR^ 


FO I 


01 63 


MPY J SEX MA . . SET X NOW 


00«i4 


PFI 


01 64 


GHI AC ..CHFCK IS THF SIGN OF MuLTICANd 


".5 


F3I 


01 65 


XOR ..THE SAME AS THE SIGN OF MULTIPR 


056 


FARO 1 


01 66 


ANI ttRO ..AND STORE THAT RIT 


0O5R 


RCI 


0167 


PHI CR ..INTO CR.l 


05Q 


FRIO 1 


016R 


LDI «10 .. SET COUNTER TO 16 
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ft ft c r-» 


1 JK | 

AC » 


U 1 o V 






05C 


C A A A • 

FROO t 


ft 1 «rft 

U J 7U 




! HT tlAA TMTTTaI T7f MQ TO A 


05F 


BF I 


A 4 "T 4 

0171 






OOfiF 


AF I 


A 4 wo 

U 1 T2 




PLO MU 


060 


2C 1 


O 1 / J 


nrL * 




n a / * 


or* 1 


ft 1 7tl 




out a/* ^HIPT AP (=MULTIPLIFR ) RIGHT 


U Upr 


CA t 


1 7^ 






n a at 


np i 


176 




PHI AC 


n n a a 


or i 


0177 




GL0 AC 


A OAR 




0178 




5HRC <;HIFT ACROSS BYTES .. 


06f» 


AFl 


01 7Q 




PLO AC 


AA7 


or i 


01 80 




GHI MQ 


U'JDn 




0181 




RNF MPR ..IF NO 8lT 0HT» DONtT ADO. 


a a a a 


t n i 


01 82 




INC MA .. POINT TO LOW 8 OF MULTIPLICAND 


n A AO 




1 P.3 




GLO PR . . IF NOT LAST ITFRATlON* 


A A AT 


"X A 7o 1 


1 84 




RMZ MPA fiO AHD. 


A A AC" 


or i 






GLO MQ .LOAD MQ.O INTO D 


A A AC 


P ' # 


1 86 




«^M MQ.O— (Ma. ft) 


AA7A 


API 

a r i 


n 1 R7 




PLO MQ . ANO «^T0RF RACK INTO MQ.ft 


U 07 1 




A 4 p Q 




nPC MA NOW no THF HIGH RYTE 


n ft o 

o 07/ 


or* i 


ft 1 Q.Q 






AA71 


"7 "7 f 


n 1 on 




cmr PrMF"MnFR THF RORWOW R T T 

9 ™ " i a r.r,' T 1 ^hC f\ I nc D •* *^ u i l 


ft ft -y /, 

074 


HF I 


ft 1 01 




but Mrt AKin PI IT batR TMTO Mft. 1 


07S 


or i 


A 4 r\o 
01 a 2 




GH ICR • « NOW ARt Trie 5> 1 o»Ni> vr u^c n Ai^Ds * 


007* 


FF I 


ft 4 OX 




CLII TCCT CrtD rTftM BTT 
*>M L_ s • 1 tb ' rUK biu'N nil 


077 


!^0P3 1 


A 4 r\ti 




RR Mrb+ B nO • • x r N=bA 1 1VC.» blon* C.Alr_Nrj 


/ M 


or . 

Hr. * 


ftl OS 


MP A t 




a a » 

□ OTA 


r/i i 


ft 1 OA 




Ann MO Ox f Ma a. 


A a arn 

U(I7H 


Apt 

Ar J 






PI MO -AND PUT RATK INTO MQ 


ft ft "7/* 


9n i 


1 Q R 




DFC MA ,.5AMF FOR HIGH RYTF 




OF 1 


ft 5 qq 




GHI MQ 




74 1 


0200 




AOC ..ADD WITH PAPRY 


Q07F 




020 1 




PHI MQ 


080 


PF t 


0202 


MPS t 


LSDF 


0081 


F0 1 


0203 




LDX 


OA? 


FFl 


0204 




SHL..IF OPERAND IS NEGATI VF» THEN 






0205 




GHI MQ ..PUT MQ.l INTO D 


ft ft a /i 


"7A fl 






«;hrc . <;hift in parry 


ft OAS 


nr t 
r ' r ■ 


0207 




PHI MQ 


fl ftRft 
U Uf^O 


PiF t 


0208 




GLO MQ .. CONTINIJF TO LOW 8 OF MQ 


ft ftA7 


7r> 1 


0209 




SHRC 


ft A O A 


a r* i 
or # 


0210 




PLO MQ 


ft ft a o 


TRAP ! 


0211 




RNF MT .. IF MO CARRY 0UT» ITERATF. 


ft ft a d 


nr i 
Hr 1 


ft ? 1 ? 




GHT AC ADO CARPY ODT INTO AC M«iR. 


ft ft c a 

U U oC 




021"*, 




OR I (JR0 


A A O E» 

OOBr 


nr » 


ft 9 1 ii 
lit I ^ 




PHT AC 


A A o r^" 


O A f 


ft? 1 R 


MT t 


Kl O CP -CHFCK COUNTTR 


A A n A 


~ An') 1 


ft O 1 A 




dM7 MP! TF ffl\ liMTFR Tc: NOT A»RO PArK FOR 


A A /-i o 


nr i 


ft O 1 "7 


"rA , 


GUI Ar FTMT^HFTll 


OOQS 


FF J 


0218 




SHL .. CHECK FOR PRODUCT > 15 BITS. 


OOQU 


PF» 


0219 




GLO MQ 


00QS 


P7l 


0220 




LSNF ..THAT'S HIGH 17 BITS 


00°n 


FRFFl 


0221 




XRI «FF . . ALL 00 OR FF. 


00QB 


3AQF» 


0222 




BNZ *+«06 .. NAW. 


00QA 


OF I 


0223 




GHI MQ 


OOqR 


C7I 


0224 




LSNF 


oopc 


FRFF 1 


0225 




XRI «FF 


00qF 


FCPFl 


0226 




ADI HFF .. SET DF IF PRODUCT > 15 RIT5 



1 
I 
I 
I 



I 
I 
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AO 


Dr> i 


ft OO 7 




SEP RFTM .. RETURN 


onA i 






.. 32/16 RIT SIGNED DIVIDE (2«S COMPLEMFNT) 


A 1 


1 






.. AC=MQ, AC/OPRN 


OOAl 




ft O 




.. QUOTIFNT IN AC » RFMAlNnER IN MQ 


OAl 


• 


ft O "X 1 




. . ************ MTO CALL, WRITE) *********** 


OOAl 








.. CALL DIVOP t »A(0PRN) 


OOAl 




0233 




• • 


ft ft . 4 


U6 1 


not it 

fI *< u 


DlVOPt Ln A LINK .. FFTCH OPERAND ADDRESS 


OP-A2 


RD 1 






PHT MA .. TO REGISTER Ma 


ft n * ti 

D A Ji 


it j i 


ii/OO 




LOA LINK 


ft ft A It 

U U A U 


nil i 






PLO MA .. FALL INTO DIV0/DI V/DlVQ. 


nni c 


1 
1 


1 1 £ o 




.. 32/16 RIT SIGNED DlVlDF (2«S COMPLEMENT) 


Of) 


1 


023Q 




... OPTION Wl: CLEAR MQ AND CHECK FOR ZrRO n 




1 


02^0 




.. **** AC^MQ t AC/M(R (MA) ) 


AF> 


1 - - 


0241 




.. ************ (TO r ALL » WRITE) *********** 


Q0AS 


1 


02^-2 




.. ****CALL DIV0 


OPAS 


fd« 


P.2^-3 


DIVnj SFX MA .. SET X TO POINT TO DIVISOR (ft) 


00 Afi 


QF 1 


021*4 




GHI AC .. LOOK AT AC SIGN (ft) 


n A7 


FF 1 


02^5 




SHL .. COPY IT TO DF (0) 


-j P A A 


Fflftn | 


02^6 




LDI **00 .. FXTFND W00 IF POSITIVE* (0) 


fl A A 


C7 1 


02^-7 




LSNF .. (ft) 


AR. 


FPFF 1 


C2'»P 




LDI ttPF PFF IF MFGATIVF. (0) 


fl AO 




02Uo 




PHI MQ .. GIVING +0 O" -ft IN MQ (ft) 


1 J U A r 


AIT 1 


' J C - 1 1 ' 




PLO MQ ■ (ft.) 


n a »r 

im i A p 


(in t 
^ i i 


njci 




LDA ma , , rHFrK FO" ZrRO DIVISOR ( ) 


. * rp() 


r 1 i 


ft5>c;9 




jn i * \ i' i f 


ft fta i 

1 - l H I 




l ■ c » J *J 




HFC Ma .. (DON'T FORGET TO FIX POINTER) <0) 


PR? 


FPOO 1 


ft ft C" /■ 




^ni t<00 IF Zfrh, rALL IT nlvinF 


PR*4 


3RR 7 1 






RNF DIV ..GO ON IF NO DIVIDE CHF<~K «fR<? 


n np£> 


H5 1 






SEP RETN ..AND RETURN WITH DFrl (0) 


0PR7 


1 


no^7 




... OPTION BP! PERMIT 32-nIT DlVIDFNn I (/) 


PR7 


1 


0258 






f> /•» f> ~» 


1 






. . MAKF SURE QUOTIENT DOES NOT FXCE^D 16 RlTS(/) 


f jHR7 


1 


ft o «i n 




.. ****** (TO CALL » WRITE) ******(/) 


U Un ' 


1 


i c O I 




.. ***** CALL DIV *****(/) 


o n C5 7 


or i 


ft.2^2 


div: 


GHI MQ ..SAVF PARTIAL OIVlDFfJn(/) 


ft ftDQ 








PHI CR ..IfJTO CR.K/) 


0R°- 


RF 1 


"26U 




GLO MQ . . (/) 


CORA 


AC 1 


0265 




PLO CR . . AMD CR.O (/) 


ORB 


FF 1 


0266 




SHL ..(/) 


00R<~ 


i 


0267 




PLO MQ . . (/) 


o opn 


QF 1 


026P 




GHI MQ ..no THE SAME FOR HIGH RYTE (/) 


n orf 


7P | 


026Q 




SHLC ..RFMFMRFR CAR»Y(/) 


ORF 


R» | 


02 7ft 




»HI MQ . . (/) 


00C 1 " 


OF 1 


0271 




GHI Ar ..ALSO SHIFT IN AC HIGH ( / ) 


oor 1 


FF» 


0272 




SHL ..(/) 


o or? 


33rn i 


0273 




RDF D2-«01 . . (/) 


ftf. 4 * 


PC 1 


0274 




GLO CS ..SEE IF MQ.O r:0(/) 


o ftr^ 


3ACP" » 


0275 




PNZ D2 ..IF NOT GO THROUGH CHECKING STEPS(/) 


ft0<~7 


9r i 


0276 




GHI CR . . SEF IF MQ.l IS *t+C(/) 


OftCP 




0277 




XRI «tft . . WHIrH SHOULD RESULT IF TRUE ( / ) 


o or a 


32H7I 


027R 




RZ D<4 ..IF TRIJF»SKIP NORMAL CHECKING (/) 


oorr 


3RJ 


ri27P 






oocn 


1«* I 


02P.0 




INC MQ ..IF 1, SHIFT INTO MQ(/) 


OOCF 


o,~ i 


02A1 


D2l 


GHI CR . • CHECK IF HIGH ? BITS OF MQ ARF THF 


OOCF 


F'.Cfll 


02*2 




ANI «C0 ..TAKE OUT 2 HIGH Rl TS ( / ) 


C0D1 


FD"0 1 


02A3 




SDI «00 ..SEE IF THEY ARE THF SAMp(/) 


com 


FF 1 






SHL ..SHIFT OUT COMPARlSOrJ (/) 


0OD<* 


C301S6» 


02 B5 




LROF DVXX ..SET DF AND RETURN!/) 
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00D7 


QC 1 


n 9- 

UtnO 


nil i 


RUT 


r» LOOK AT THF SIGNS OF DlVNn AND DIVSR(/ 


OODfl 


ED 1 


fl 9 ft "7 

u ^ n / 






MA PftTNT y TO nT\/Tc:OR(/) 


OODP 


F3 t 


Ucfin 




XOR 


• • • ' » o 


oopa 


FF 1 


u rfirvw 






CPT HP TP THF CAMF" ( / ) 

• # o C i U~ ir 1 lie 3h' il u ' 


ft ft r - * ra 

DDR 


in i 


0290 




INC 


MA . .MQ.O-(MA) (/) 


DC 


8r J 


n *?oi 

UC7*. 




GL0 


MQ ..MQ.O TO D(/) 


ODD 


33r 6 1 






RDF 


DVA ..IF FLAG . MQ. 0+ ( Ma ) < /) 


onnF 


F7 1 






*5M 


..MQ.O--(MA.n) (/) 




API 






PLO 


MQ ..AND STORE RACK INTO MQ.P(/) 


oon 


?n i 






DEC 


MA ..DO THF SAME FOR HIGH RYTEC/) 


OOF? 


QF 1 






GHI 


MQ ..LOAD MQ.l INTO D</) 


onr3 


771 


02Q7 




SMR 


. ,MQ.l-(MA.l ) WITH CARR Y ( / ) 


0E« 


30'PI 


029W 




RR DVR ..5KIP OVER ADD STFP(/) 


00E6 


FUI 


z>QO 


dva i 


ADD ..MQ+(MA)(/) 


00F7 


AP 1 


a ^ aa 




PLO 


MQ ..STORE RACK TO MQ.O(/) 


OFF. 


?D i 


ll.Tll L 




DFr 


MA ..SAMF FOR HIGH RYTF (/) 


OFP 


QF 1 






GHI 


MQ ..MQ.l+(MA.l) (/) 


P^ - A 


71 I 


f\ "x n 




ADC 


..ADD MQ.1 AND (MA.l) WITH CARRY ( / ) 


ft nrn 

I.I 1 1 f M 




030U 


DVR ! 


PHI 


MQ ..AND STORE RACK INTO MQ. 1 (/) 




or i 


0305 




GHI 


CR ..LOOK AT THE SIGN OF DIVIND(/) 


ft flPft 


r r • 


0306 




SHL 


..SET DF IF DIVIND IS NEGATIVE 


n rrr 

V 1 r ^ 




0307 




LRNF 


DV? ..IF NOT. HON « T COMPLEMENT DlFF ( /) 


OOF J 


OF 1 


0308 


1 


GHI 


MQ ..COMPLEMENT MQ </) 


o nco 

H'r ^ 


enpr t 


030Q 




XRI 


«FF . .RY XOR TO ftFF(/) 


ft flri. 




HM 




PHI 


MQ ..(/) 


U \) 1 1 


or i 


031 1 




GLO 


MQ ..(DO THF SAME FOR LOW RYTE M / ) 


0F6 


FRFF | 


031? 




XRI 


«FF ..(/) 


00FP 


AF I 


0313 




PLO 


MQ ..(/) 


n fttro 

-rf 1 ' 


1 F I 
Ir 1 


0311 




INC 


MQ ..REMEMRER TO ADD 1 (/) 


ft ft F A 


OF 1 


P31S 


nv? t 




GHI MQ ..MOW LOOK AT THE OIFF OF MQ8(MA)(/) 


OPR 


A* ft ft 4 ft X t 


1 1 O J. o 




LRZ 


Din ..if o.rHprK mq=o(/) 


0F r 


FF > 


ft "* 1 "7 




SHL 


..CHECK IF MQ IS NEG/\TIVE(/) 


ft ft ETC 

'J Or r 


"A "A tr n i 


031 a 




RriF 


DOQ ..IF YES» NO PROBLEM ( / ) 


0101 


30 SU I 


A«1n 

V-> 1*? 




RR DP ..IF NOT P NOR NFGrDIVND IS TOO LARG^ (/) 


1 OS 


RE i 


ft "A ft ft 

0320 


Dl ! 


GLO MQ ..HFRE WE CHECK DIFF=P C^SES(/) 


o 1 no 


FCFEl 


Q3?l 




AD I 


#FE ..IF MQ.O IS NOT ElTHFR OR 1(/) 


1 P6 


33R6 I 


n 322 




RDF 


DVXX ..THEN DIVND IS STILL TOO LARGP(/> 


ft 4 ft r> 

1 OB 


FRFF I 


U JrTJ 




XRI 


«FF ..RESULT IF MQ.O WAS 1(/J 


ft 4 ft A 

10 A 


3 A 1 


f\ "XOti 




RNZ 


DVH ..IFMOTf MUST RF 0. GO TO DVH(/) 


ft 1 ft ft 


QC t 


n 

v o*< ~ 




GHI 


CR ..SEE IF DIVND IS NEGATIVE(Z) 


n 1 fin 

\J 1 1 1 ! 




032(S 




ANI 


«P,0 ..RESULT 80 IF YES(/) 


ft 1 ft c: 




U JiC ' 




RZ 


D° ..IE DIVND POSITIVE. IT C&NNOT DlVlDEC/ 


n 1 1 1 


Ftl 1 
r M 1 


03?R 




ADD 


. . SFE TF DIVISOR IS e>0SlTIVE(/) 


ft. 1 1 o 


j.inn J 


3?° 




RPF 


DVXX ..IF NEGATIVE. DIVND CANNOT DIVIDE (/) 


n 1 1 £i 

UI 1 4 


in » 


U ^» • 




INC 


MA ..AC+(MA) TO MQ(/) 


Ul 13 




0331 




GLO 


AC ..DO Ar LOW FIRST*/) 


0116 


FU I 


033? 




ADD 


. . </) 


0117 


AF 1 


0333 




PLO 


MQ ..STORE RACK TO LOW MQ ( / ) 


01 IP. 


?m 


0331 




DFC 


MA ..DO THE SAME FOR HIGH RYTE</> 


011P 


PFl 


033^ 




GHI 


AC ..(/) 


on a 


71 » 


0336 




ADC 


..ADD WITH CARRY(/) 


011R 


PF» 


0337 




PHI 


MQ . . ( / ) 


one 


m» 


033R 




INC 


Ma ..LEAVE MA POINTING TO LOW DlVlS0R(/) 


01 ID 


F0 > 


033Q 




LDX 


..NOW HECK LOW PIT (Ma) IS P OR 1(/) 


011F 


F6I 


P3U0 




SHR 


..SHIFT THAT LOW RIT 0UT(/) 
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01 


IP 


?ni 


0341 




DEC MA .. REMEMBER TO RESET Ma(/) 


01 


?o 


OFl 


034? 




GHI MO ..READY TO ADD tfR0</> 


01 


?1 


f 71 


0343 




LSNF ..IF LOW RIT OF AC IS I (/) 


01 


?? 


fcao i 


034 4 




AOI «R0 ..TO MQ, I < / ) 


01 


L?4 


RF» 


0345 




PHI MO ..STORE STATUSf/) 


01 


LP* 


FFl 


0346 




SHL . ,5EF IF MQ >0(/) 


01 


J>6 


Of » 


0347 




GHI CR ..SEP IF DlVND POSTIVE(Z) 


0! 


?7 


FARO i 


034 A 




AMI PAO . .RY TAKE OUT SIGN(/) 


01 


l?Q 


3A2F 1 


034Q 




PMZ *4«06 .. (/) 


01 


?p 


3B54 i 


n3 c ;o 




RNF HQ ..EXIT WITH OF=l</> 





?o 


305R 1 


0351 




BP DDQ ..OK(/) 


03 


?F 


3356 t 


035? 




RDP DVXX ..IF NEGATIVE. THEN OUT(/) 




- 


31 


OF 1 


0353 




GHI MQ ..UPR IF MQsO?(/) 





3IP 


3A5B 1 


0354 




PMZ DDQ ..IF NOT. THEN NO PROrLEM(/> 


o 




RF ( 


0355 




GLO MQ ..MaKP SURE M Q.O IS TOO(/) 


n 


171*5 


3254 1 


0356 




RZ DO ..IF YES» THFN RETURN WITH DF=1(/) 


a 


37 


305R 1 


0357 




B=» DDQ ..OR ELSF GO TO DlVlDF</) 


o 


I 30 


OC I 


035A 


DVH! 


GHI CR . .SFE IF THE OPERANDS SIGNS nIFP( 






F3 J 


035". 




XOR ..RY COMPARING SIGN RlTS(/) 




3R 


FF | 


0360 




SHL . . AND TAKE - OUT THAT RIT(/) 




| 


331 ^ J 


0361 




RDF D10 + 811 ..IF SING'S D IFF . IT'S 0K(/) 





13^ 


OC 1 


0362 




GHI C . . OTHFRWISF TEST SIGN OF DIVNO(Z) 





1 3F 


FF 1 


0363 




^HL \ ..IF POSITIVF. RFTURM WITH DFrl (/) 





140 


3B54» 


0364 




PNF DO . . RETURN WITH DF=1(/) ' 





14? 


mi 


0365 




IMC MA . . SFE IF LOW BIT OF AC IS OR !.(/) 





143 


F*i 


C366 




LDX ..LOAD THAT IN 0</) 





U4 


?ni 


03*7 




DFC MA ..REMFMRFR TO RFSFT Ma(/) 





145 


F6I 


036A 




SHR ..SHIFT THAT BIT 0UT</> 





146 


RFI 


036Q 




GLO AC ..IF AC IS NOT ,NOT PROrLEM(/) 


n 


!ti7 


3A5RI 


0370 




PNZ DDQ ..GO TO OlVlOEC/) 





|UQ 


QFI 


0371 




GHI AC . .RFADY TO CHFCK «80 IF LOW PIT AC IS 


n 




3350 | 


037? 




PDF *+ttl6 . . (/) 





14c 


3?54l 


0373 




PZ DP ..NO GOOD. RFTURM WITH DP=1</> 





1 UF 


3Q5R i 


1371 




RR DDQ ..ANY THING FLSE IS OK(/) 





I fSP 


FRAP 1 


0375 




XRI «RC ..IF AC.l IS'NT **80(/)" 


n 


IS? 


3A5R 1 


0376 




RNZ DDQ ..IT'S OK(/) 





1^4 


FF0O 1 


0377 




SMI UOO ..DF IS SET TO 1(/) 





IS6 


OC 1 


037P 


nvxx 


! GHI CR ..PUT ORIGINAL nlVND</> 





1 57 


PP" 1 


037Q 




PHI MQ ..INTO MQ ( / ) 





1 5A 


PC t 


03A0 




GLO CR . . (/) 





1 SO 


AF 1 


0381 




OLO MQ . . (/) 


o 


1 SA 


P5 > 


03A? 




SFP RETN ..AND RETURN WITH DF=1(/) 


<1 


1 5B 


OC 1 


03B5 


ddqi 


GHI CR ...PUT ORIGINAL DlVND</) 





1 so 


RF I 


03R4 




PHI MQ ..RACK INTO MQ(/) 





15D 


AC 1 


03B5 




GLO CR . . (V) 





»5E 


API 


0386 


PLO MQ . . (/) 


n 


1 SF 


( 


05R7 




... OPTION 83! ASSUMF RENIGN PROGRAM | NOCHECK 


n 


1 5F 


1 


0388 




.. ************ (jo CALL. WRITE) *********** 


n 


1 5F 


1 


038Q 




.. ****CALL DIVQ 





ISF 


QFI 


03QO 


DIVQ 


! GHI MQ ..LOOK AT DIVIDEND SIGN 





160 


FFl 


03Q1 




SHL .. IF POSITIVE. 


n 


L61 


FAP0 1 


03Q? 




LDT «90 .. PLAN TO BEGIN WITH SUBTRACT. 





163 


C7I 


03Q3 




LSNF .. (ALSO SAVE SIGN OF DIVIDEND) 





i im» 


FA50 1 


03Q4 




LDI 850 .. OTHE* WISE BEGIN WITH ADO. 





1 66 


AC 1 


03O5 




PLO CR .. SET ITFRATTON COUNT IN CR.O 





1 67 


PF» 


03O6 


OVLt 


GLO MQ ..SHIFT MQ LEFT 1 RIT 





16A 


F«- 1 


03O7 




SHL ..SHIFT LFFT MQ.O 





160 


AFI 


D3QR 




PLO MQ . . 





16A 


QFI 


05OQ 




GHI MQ ..SAMF FOR HIGH RYTE 



1 (/» 



I 

f) 



l 
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016B 


7EJ 




0400 




SHLC SHIFT LEFT WITH CARRY 


016C 


BE I 




0401 




PHI MQ .. 


01 <sn 


RP 1 




0402 




GLO AC ..SHIFT AC LEFT 1 BIT . *>" 


016F 


FFl 




0403 




SHL ..SHIFT AC.O 


OlfiF 


AFl 




0404 




PLO AC .. 


0170 


PFl 




0405 




GHI AC .. 


0171 


7FI 




0406 




SHLC ..SHIFT WITH CARRY 


C172 


RFI 




0407 




PHI AC 


0173 


3R76» 




040R 




BNF *+803 .. RIT SHIFTED OUT OF AC.1» 


0175 


IP"! 




0409 




INC MQ . • GOtS INTO "Q«U 


017fi 


FDI 




0410 




Sr. X MA • • 


0177 


Rr 1 




0411 




GLO CR • . NOW » WAS THAT AD" » OR SUBTRACT? 


01 78 


F3> 




0412 




XOR .. IT DEPENDS ON SAVED FLAG* 


017O 


FFl 




0413 




alii i 1 In >• T 1 1 r~^T\iTr-,-\f, 

SHL ..AND SIGN OF DIVISOR 


017A 


in» 




0414 




v i < a ft ft ft i_j ft n / it , a \ 

INC MA . . MQ. 0- (MA . ) 


017B 


Rr i 




0415 




GLO MQ .. 


017r 


3R85I 




0416 




RNF DSA ..IF NO FLAG»Mq.o+(Ma .n) 


017F 


F7I 




0417 




SM 


017F 






041 R 




PLO MQ . . 


01R0 


?o« 




041Q 




DEC MA ..FIX X PTR 


0IR1 


PFI 




0420 




GHI MQ ..DO THE SAME FOR HIGH BYTE 


018? 


771 




0421 




«;MR ..REMEMBER THAT BORROW RIT 


0183 


308AI 




0422 




BR OSM ..SKID OVER ADD STEPS 


01P5 


F4 I 




423 


DSA1 


ADO . . MQ+ ( M A ) 


0l8fi 


AFl 




04?U 




PLO MQ .. 


0187 


20 » 




riu25 




DEC MA ..DO THP SAME FOR HIGH BYTE 


01RR 


PFl 




0426 




GHI MQ .. , 


01R<5 


74 1 




0427 




ADC . . «DD WITH CARRY 


01BA 


KFl 




0^2R 


dsm: 


PHI MQ ..STORE RACK TO MQ.1 


OlflB 


?r i 




04?o 




DFC CR COUNT DOWN ITERATION COUNTER 


018C 


8C 1 




OU30 




GLO CR 


01RD 


FA7F| 




0431 




AN I W7F 


01RF 


1RQ4 I 




04?(? 




RNF * + «n5 .. TFST C APR Y OUT OF ADD/SUBTRACT 


Oiol 


1FI 




0433 




INC AC .. IF 1 » SHIFT INTO QUOTIENT » 


01O? 


FQRO | 




0434 




ft w V t—1 ft ft ft ft I ftn 1 ■ ft K 1 V* W <v- ft Mm ft w-, i i m~. W* ftW 

ORI &80 .. AND FLAG NEXT OP AS SUBTRACT. 


01P4 


AC 1 




0435 




PLO CP .. OTHERWISE IT 1 *? ADD. 


01Q5 


FA3FI 




0436 




ANI H3F .. LOOK AT COUNTER t 


01O7 


3A67I 




0437 




BNZ DVL .. IF NOT 0» LOOP RACK i 


Oloo 


33R0 i 




0438 




RDF DVR ...AT END t CHFCK REMAINDER ADJUST. 


1 OR 


381 




043Q 




t r»38 


nioc 


IF J 




0440 


dvc 


! INC AC «• (FINAL DIVIDF STEP) 


01 on 


F3l 




0441 




XOR .. BF SURE TO GFT MOLARITY 


01QF 


PFi 




0442 




SHL .. OF ADJUSTMENT RIGHT... 


01OF 


idi 




04U3 




INC MA .. YES. ADD DIVISOR RACK ON» 


OlAfl 


8E 1 




04U4 




GLO MQ .. TO CORRECT FOR FINaL SURTRaCT. 


01 Al 


33AAI 




0445 




RDF DVM .. (ADDING NEGATIVE IS SURT.) 


01 A3 


FU » 




ount 




ADD .. WHICH SHOULDN'T HAVE. 


01 A4 


AF 1 




04U7 




PLO MQ 


1 A5 


?nt 




0448 




DEC MA 


01 A* 


op | 




044Q 




GHI MQ 


01A7 


74 I 




0450 




ADC ..ADD WITH CARRY 


01AB 


30 AF > 




0451 




RR DVR-P01 


01 AA 


F7I 




0452 




! SM .. SAME THING. 


01AR 


AF 1 




0453 




PLO MQ .. FXCEPT, FOR NEGATIVE DIVISOP. 


01AC 


20 » 




0454 




DEC MA 


01 AD 


QF t 




0455 




GHI MQ 


01 AF 


77 1 




0456 




SMR 


01 AF 


RFI 




0457 




PHI MQ 


01 RO 


QFJ 




0"SR 


dvr 


t GHI MQ .. IF REMAINDER IS NOT ZERO. 


01R1 


3AR6I 




045O 




BNZ *+*05 



1 



I 
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LR3 


BE I 


0460 


GLO MQ 


R4 


32C1 » 


04 61 


RZ DVN .. PIJT IT Isi NO PROpLfM. 


IR6 


PCI 


0462 


GLO CR .. IF NOT ZERO, 


P7 


FF » 


0463 


SHL .. IT SHOULD RE SA M E SIGN 


IPP. 


FE » 


0464 


SHL .. AS ORIGINAL DIVIDEND. 


RO 


op t 


0465 


GHI MQ 


R A 


CF I 


0466 


LSDF 


PP 


FRPn I 


0467 


XRI «P0 


RP 


FCPf! I 


0468 


ADI 880 .. IF N0T» WF NFFD 


BP 


3rqc j 


0l»6Q 


RNF DVC .. ONE MORF DIVIDE ITFR ATION. 


LCI 


F0| 


0470 


DVN j LDX .. FINALLY* IF DIVISOR NEGATIVE* 


LC? 


FF> 


0471 


SHL 


r? 


3Rno i 


0472 


RNF DVX ..fIT»S NOTi WE ARF DOME) 


1 C"i 


ppi 


0473 


SLO AC COMPLEMENT QUOTIENT » 


IC6 


FPFF> 


0U74 


XPI PFF .. PY INVERTING IT, 


CP 


AFI 


0475 


PLO AC 


ICQ 


OF l 


0476 


GHI AC 


CA 


FPPF 1 


0477 


XRI PTF 


CC 


RFI 


047P 


PHI AC 


cn 


1 F t 


047o 


IMC AC .. THPM INCREMENTING 


ce 


FCOO J 


0480 


ADI tfon .. ALSO CLEAR DF. 


no 


D^l 


0UP1 


PVX: SF= BETH .. PFrO IF DIVIDE SUCCESSFUL. 


mi 


t 


PUP.? 




01 


t 


0ft«3 


.. 16-BIT ADD TO AC t OPERAND AnORE^S IN CALL 


nl 


1 


pUpU 


.. **** AC=AC+OPRN .. 0PRN=2 RYTF OPERAND 


idi 


I 


P4P.5 


.. ************ (TO CALL, WRITE) *********** 


inl 


> 


PUP6 


.. ****CALL ADDOP 1 ,A(OPRN) 1 


m 


1 






pi 


1 


04PP. 




nl 


<*6 1 


04PO 


ADDOP* IDA LINK FFTrH OPF^AMn AnPlRT^e; 


P? 


RP t 


04on 


PHI MA .. TO REGISTFR Ma 


i m 


46 1 


04o1 


LDA LINK 


ipi* 


API 


04Q2 


PLO VI A .. FALL INTO ADD 


ins 


t 


04O3 


.. 16-RIT ADD TO AC» OPERAND ADDRESS IN REGI 


ins 


» 


04OU 


.. CALL HERE IF OPRN ADDRESS 


IPS 


1 


04PS 


.. TS IN REGISTFR MA 


IP'S 


1 


04Q6 


.. ****AC=AC+M(R(MA) ) 


1 P^ 


1 


0UQ7 


.. ************ (TO CALL, WPITE) *********** 


p^ 


1 


ft Hap 


****CALL ADD 


r>5 


1 


04Qq 


• * 


ns 


FPI 


osoo 


«DOt SFX MA ..CHFCK SIGN BIT OF AC 


f>6 


QF» 


0*01 


GHI AC ..GET THE OPFRAND 


D7 


F3» 


0502 


XOR ..AND OPFRAND QMA 


•OP 


FRPO 1 


05(13 


XRI OPO ..RESULT A 1 IF DIFF 


IDA 


^2> 


0504 


?TR SP ..STORF ON STACK 


OR 


in i 


0*505 


INC Ma ..POINT TO LOW 8 RITS 


OC 


PF 1 


P506 


GLO AC,.. FETCH AC LOW 8 


1 nn 


fu t 


0«>07 


ADD . . ADD LOW 8 FROM MFMORY 


0? 


AF J 


05CP 


PLO AC PUT IT BACK 


1 of 


201 


0500 


DEC MA .. POINT TO HIGH 8 MfMQRY LOT ATION 


EP 


QFi 


0510 


GHI AC 


Ft 


7U| 


051 1 


ADC ..ADO HIGH BYTF WITH CARRY 


F2 


RFI 


05.12 


PHI AC .. PUT IN AC. 


IF3 


0?l 


0513 


LDN SP ..LOAD THF STORED COMPARING SIGN RlT 


FU 


FFI 


05I4 


SHL . . RESET STACK e TR 


F5 


3RE A 1 


0515 


RNF ADDRT+eoi ..NOT POSSIBLE 


iF7 


OF I 


0516 


GHI AC ..OTHERWISE SEE IF SUM IS RIGHT 


Fa 


FSl 


0517 


XOR ..RY COMPARING SIGN RlTS 


I (TO 


F*l 


051R 


ADOPTS SHL ..SHIFT OUT INTO DF 


F-A 


05 t 


051O 


SFP RETN ..RETURN TO MAIN 
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1 FB 


1 


0520 


« ■ 


1 FR 


t 


0521 


• • 16-5BIT CONSTANT ADD TO AC. 


D 1 FR 


i 




. . CALL HFRE FOR ADD CONSTANT TO AC 




1 


0523 


****AC=AC+C0NSTANT 


uJlr. n 


t 
i 




, ft*********** (TO CALL> WRITE) *********** 


fl 1 vra 

U l r n 


• 




****r&IL AnDCON 1 »C0NSTANT 


u Jrn 


• 
i 




• * 


U if n 


no 1 


11 3t / 


AnnrnNJf Rl n 1 TNK rOPY LINK TO Ma 


UlrC 


An i 


u r?t n 


pi n ma 


1 FD 


o*c t 

"o 1 


n c o q 


CUT 1 T KIL/ 


IFF 


BD 1 




BU T Ma 


IFF 


1 r> f 






1F0 


1 6 l 


A r 7 « 


f ii« I TIM/ 

INC LINK 


1FI 


sons i 


n cz ~x ~x 


PR ADO • . GO ADD. 


1 F3 


i 


tr ^ /i 


• • 


1 


i 


fti ~» c 


1£._c>TT Ann cdAM TAP rtP cTatK 


II lr,i 


no ■ 
V** 1 






U IP 1 * 


rv) • 


u no / 


PHT MA TO MA RFflTC.TrR 


J 1 r r» 


cO t 

n<r 1 




Rl O CP 


n 1 f a 


AH 1 




pi n ma 


1 F7 


in * 

i \ j § 




INC MA ADVfiNCF TO SUB— TOP (□) 


1 FA 


in » 


0541 


INC Ma .. (0) 


1F9 


i n j 


C542 


INC MA . . (0) 


1 FA 


30D5 I 


05*0 


RP. ADD .. GO DO IT 1 


IFC 


i 


P54U 




o i fc 


i 


n 545 




n 1 ft 


i 


0546 




IFC 


i 


05U7 


.. PUSH AC INTO STACK ' 


C 1 FC 


t 


054 


. . ^TACK POINTER r SP 


n 1 Fr 


t 
i 


05UQ 


**£ ********* (TO CALL> WRTTF) ******** 


f) 1 Fr 


i 


0550 


. . ****CALL PUSHac 




■ 
* 


ncci 

vj . > r ) i 


pi leu a/- MIMnFR TOP CF CTif K) 


u if- r 




ncco 

r) r» ^ 


PIICHAT' RHT CP rDPY CTArK POTMTJPP TO Ma 


1 Fn 


rd i 


n«;r:"* 


OUT MA 


CI i FF 


p? t 


•Jon'* 


/^i n cd 


1 FF 


&D 1 




ni a Ma 


200 


i n i 


Arc/ 

C5bn 


T Ki/* Ma maw cl T/-c ncc TAD O nVTPC . 


fl on 1 

UcU 1 


1 IS 1 

.1 p » 


(IKK7 


TMr Ma 


U IJ «£ 


BO 1 

t S.l 


ACKB 


cry cp 


u <r n o 


un » 


u r>r>H 


1 nw Ma Td' MAKr a ?*.nYTr hoi p 


U / 'i 4 




U.JOU 


^TXn 

j 1 AH 






0561 


DFC MA 


206 


on i 


056? 


LDN MA 


0207 


73 1 


0563 


STXD 


020R 


9F I 


0561 


<5HI AC .. NOW STUFF AC INTO THE HOLE. 


209 


1 


0565 


STR Ma 


0?D A 

V \J >\ 


AF ! 
or » 


0566 


GL0 AC 


n?nn 

Uclln 


1 n I 


0567 


IMC MA 


0?nr 


- 'i ' • 


056R 


STR MA 






05n9 


DFC MA LEAVF MA POINTING TO IT 

1/1 V_ > • r-\ • a 1_L«V| * Villi 1 1 |U 1 XI* 


v «^ u r 


i 


0570 


Srp RFTN (AC UNcHaNGFD) 




1 


0571 


.. PUSH CRr MA r MQ (UNDER TOP OF STACK) 




RDl 


0572 


PUSHCOt GLO MA .. FIRST PUSH Ma ONTO TOP 


321ft 


FPl 


0573 


SEX SP 


0?1 1 


7?i 1 


057U 


STXD 




on » 


0575 


GHI MA 


o?i^ 


52 r 


0576 


STR SP 


0?iu 


Q2 I 


0577 


GHI SP .. NOW COPY SP TO Ma 


0?1S 


no i 


A57A 


PHI MA 



Appendix B(ll) 



55 



021 6 


P2 1 


0579 


GLO 


SP 






0217 


AD I 


05ft0 


PLO 


ma 






021ft 


221 


05ftl 


OFC 


sp 






0219 


1DI 


05fi2 


INC 


MA 


• « 


THEN ADJUST IT 


021 A 


mi 


05P3 


INC 


MA 






021B 


mi 


05B4 


INC 


MA 


• • 


TO POINT INTO OLD TOP 


021C 


BFl 


05fi5 


GLO 


MQ 


« 4 


CONTINUE PUSHING t MQ 


021D 


731 


05P6 


STXO 






021F 


opt 


05B7 


GHI 


MO 






021F 


731 


05ftft 


STXD 






0220 


on» 


05ft9 


LDN 


MA 






0221 


731 


O5Q0 


STXO 






0222 


2Pl 


05Q1 


• '• DEC 


MA 






0223 


00» 


05Q2 


LDN 


MA 






0224 


731 


0593 


STXO 






0225 


Of f 


0594 


GHI 


CR 


• • 


FINALY INSERT rR IN HOLF 


022* 


50* 


0595 


STR 


MA 






0227 


1P» 


05Q6 


INC 


MA 






0220 


bc i 


0597 


GLO 


CR 






0229 


501 


05Ofl 


STR 


MA 






022A 


P5I 


0599 


SEP 


RETN 


. . (MA IS GARBAGE 01 IT ) 


022R 


1 


0600 


• • 








022R 


1 


0*01 




=OP 


STACK. INTO MQ, MA, CR , (UNDER TOP OF S 


22P 


121 


0602 


POProt 


INC 


SP 




022C 


op | 


0603 


GHI 


SP 


• • 


COPY STACK POINTER TO MA 


0?2° 


RD» 


0604 


PHI 


MA 






022=" 


P2 1 


0605 


GLO 


SP' 




i 


022F 


API 


0606 


PLO 


MA 






0?^O 


101 


0607 


INC 


MA 




ADJUST POINTER TO CR DATUM 


0231 


1D» 


060ft 


TNC 


MA 






0232 


1DI 


060Q 


INC 


MA 






0253 


mi 


0610 


INC 


MA 






0234 


lni 


061 1 


TNC 


MA 






023S 


101 


0612 


IMC 


MA 






0236 




061 3 


LOA 


MA 


• • 


FFTCH IT 


237 


BCI 


0614 


PHI 


CR 






023* 


rni 


0615 


LOM 


MA 






023° 


ACJ 


0616 


PLO 


CR 






023A 


2DI 


0617 


DEC 


MA 


• • 


COPY' TOP OF STACK INTO GAP 


023B 


U2l 


061ft 


LPA 


SP 






o?3r 


ro» 


061 o 


STR 


MA 






2 3D 


ipi 


0620 


INC 


MA 






0?3F 


42 1 


0621 


LOA 


SP 






023F 


5PI 


0622 


STR 


MA 






24 


421 


0623 


LDA 


SP 


• • 


THEN POP MQ 


02U1 


BFl 


0624 


PHI 


MQ 






0242 


42 1 


0625 


LDA 


SP 






024? 


AF ( 


0626 


PLO 


MQ 






024U 


42 » 


0627 


LOA 


SP 


• • 


FINALLY POP MA 


24 5 


BO » 


062R 


°HI 


Ma 






0246 


02 1 


0*29 


LDN 


sp 






02^7 


A0» 


0630 


PLO 


ma 






024R 


n5i 


0631 


SEP 


RFTN 




0249 


» 


0632 


.. 16-BIT 


ACCUMULATOR LOAD ( ADDRESS IN CALL) 


024O 


i 


0633 


.. ****AC=OPRN 


0?49 


t 


0634 


.. *****tfr***xut (TO CALL* WRITE) 


024Q 


i 


0635 


.. ****CALL LOADOP » »A(OPRN) 


0249 


» 


0636 


* • 








0249 


461 


0637 


LOAROP! 


LDA 


LINK .. FFTCH ADDRESS 


24 A 


RPI 


063B 


PHI 


MA 




TO MA REGISTER 
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024R 


461 


0639 


LDA LINK 


02UC 


AD 1 


0640 


PL0 MA .. FALL INTO LOAD 


024D 


t 


0641 


.. 16-BIT ACCUMULATOR LOAD ( ADDRESS IN Ma) 


024D 


1 


0642 


CALL HERE IF OPERAND 


0240 


1 


0643 


.. ADDRFSS IN REGISTER Ma 


024D 


1 


0644 


****ACeM(R(MA) ) 


0240 


1 


0645 


************ (TO C ALL t WRITE) *********** 


02un 


1 


0646 


.. ****CALL LOAD 


p?un 


I 


0647 


• • 


02un 


un« 


064R 


LOAD! LDA MA .. FFTCH HIGH 8 


D2UF 


RFl 


06^9 


PHI AC 


024R 


401 


0650 


LDA MA . . NOW LOW 8 


0250 


AFl 


0651 


PLO AC .. LEAVE MA AT NEXT OOURLE-BYTE 


0251 


D5I 


0652 


SEP RETN .. GEE » THAT WAS QUICK. 


0252 


1 


0653 


- 


02*2 


I 


0654" 


• • 


02*2 


t 


0655 


.. 16-BIT ACCUMULATOR LOAD FROM CONSTANT IN 


0252 


I 


0656 


****AC=CONSTANT 


02*2 


1 


0657 


.. ************ (TO CALL* WRITE) *********** 


252 


t 


065R 


.. ****fALL LOOCON I » CONSTANT 


0252 


1 


065a 




02*2 


461 


0660 


LODCON! LDA LINK FETCH HIGH 8 


0253 


RFl 


0661 


PHI AC 


0254 


It 61 


0662 


LDA LINK .. THEN LOW 8 « 


02^5 


API 


0663 


PLO Ar 


0256 


D5I 


0664 


SEP RETN 


0257 


1 


0665 




0257 


I 


0666 


.. 16-BIT ACCUMULATOR 'STORE (ADDRESS IN CALL 


257 


1 


0667 


., ****0PRN=AC 


0257 


1 


066R 


.. ************ (TO CALL, WRITE) *********** 


257 


I 


066° 


.. ****CALL STOROP 1 , A(OPRN) 


0257 


1 


0670 




0257 


461 


0671 


STOROP f LDA LINK .. FETCH ADDRESS INTO MA 


02«SR 


BOl 


0672 


PHI MA 




461 


0673 


LDA LINK 


025A 


AOI 


0674 


PLO MA .. THEN FALL INTO STORE 


025B 


1 


0675 


16rrRlT ACCUMULATOR STORE (ADDRESS IN MA) 


02.5B 


f 


0676 


.. ****M(R(MA) )-AC 


025B 


1 


06^7 


************ (TO CALL, WRITE) *********** 


02*R 


1 


067R 


.. ****CALL STORF 


025R 


1 


067Q 


• « 


25R 


°FI 


06R0 


STORE1 GHI AC .. FIRST HIGH 8 


025C 


5DI 


0681 


STR MA 


025D 


101 


0682 


INC MA .. INCREMFNT Mi, SINCE STR DOESN'T 


025c 


RFl 


06R3 


GLO AC .. NOW LOW R 


025F 


501 


06R4 


STR MA 


0260 


101 


"6R5 


INC MA .. LEAVE Ma POINTING TO NfXT WORD 


0261 


D5l 


06R6 


SEP RETN .. QUIT 


0262 


1 


06R7 




0262 


1 


06RA 




0262 


1 


06R9 


16-BIT COMPARE. OPERAND ADDRESS IN CALL 


0262 


I 


0690 


.. ****AC-OPRN (OF SET IF OR +) 


0262 


1 


0691 


.. ************ (TO CALL, WRITE) *********** 


262 


1 


0692 


.. ****CALL COMOP 1 , a(OPRN) 


0262 


1 


0693 




0262 


U6l 


0694 


COMPOPt LDA LINK .. FETCH ADDRESS 


0263 


RDl 


0695 


PHI MA .. TO MA REGISTER 


02*4 


46 1 


0696 


LDA LINK 


0265 


ADl 


0697 


PLO MA 


0266 


1 


069R 


.. 16-RIT COMPARE, OPERAND ADDRESS IN RFGIST 



1 

t 
I 

I 



I 
I 
I 
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0266 


1 


0699 


.. CALL HFRE IF OPERAND 




0266 


1 


0700 


.. ADDRESS IN REGISTER MA 




0266 


I 


0701 


****AC-M(R(MA) ) (OF SET IF OR +) 




0266 


1 


0702 


************ (TO CALLt WRITE) *********** 




0266 


t 


070 3 


****CALL COMP 




0266 


1 


0704 


• ■ 




0266 


Fm 


0705 


COMP! SEX MA .. COMPARE HIGH 8 FRST 




0267 


PFI 


0706 


GHI AC ..CHECK IF SIGN OF OPERANDS ARF SAME 




C26P 


F3t 


0707 


XOR ..RY LOOKING AT THE HIGHEST SIGN RIT 




026Q 


FAPP t 


070R 


ANI ttRO . .RFSMLT A «1» IF NEGATIVE 




026* 


3A76J 


070Q 


RNZ CNE ..IF NOT. THEN GO TO rNE 




026n 


QPJ 


071 


GHI AC 




026F 




071 1 


SM 




026F 


3A77I 


0712 


RNZ CMPX .. NOT EQUAL QUITS 




0271 


ini 


0713 


INC MA . . TRY LOW fl 




0272 


RFI 


0714 


GLO AC 




0273 


F7» 


071 5 


SM 




0274 


20 1 


071 6 


DEC MA .. LEAVE Ma POINTING TO IT 


■ 


0275 


3RI 


0717 


»83R 




0276 


F4t 


071 fi 


CNF! ADD ..SEE IF OPERAND IS NEGATIVE 




0277 


D5 x 


071a 


CMPX! SEP RETN . .OF=l IF AC>r<MA) 




0278 


t 


r>720 


• . 




027R 


1 


T721 






027R 


1 


0722 




■ 


027P 


1 


0723 


. « 




027R 


1 


0724 






P27R 


161 


0725 


INC LINK ..SKIP OVER NON ZFRO RETURN 




27Q 


16» 


0726 


INC LINK .. 




027A 


05 1 


0727 


SEP RETN 




027R 


OFI 


072P 


TEST J GHI AC .. FIRST LOOK AT SIGN 




027C 


FFI 


072 a 


SHL ..SET DF IF MINI'S 




0270 


9F 1 


0730 


GHI AC .. NOW CHECK FOR 




027F 


3A7R» 


0731 


RNZ TFST-P03 .. NO. 




02R0 


RF t 


0732 


GLO AC 




02P1 


327A 1 


0733 


RZ TEST-HOI .. GO TAKF ZERO EXIT. 




02P3 


307PJ 


073*1 


PR TEST-H03 .. GO TAKE NON-ZERO rXIT. 




02R5 


! 


073"i 


.. POP STACK (INTO AC) (UNDER TOP) 




02AR 


1 


» , 736 


.. POPS 2 RYTES FROM STACK INTO AC 




02P5 


1 


0737 


.„ ************ (TO CALL. WRITF) ******** 




02P5 


1 


073P 


. . #**i<CALL POPAC 






FPOO » 


0739 


POPAC! SMI tfOO .. SFT DF TO REMEMRER THIS ENTRY 




02P7 


cm 


0740 


LSKP 




2RP 


FCOO J 


0741 


POP! ADI WOO .. CLEAR DP FOR THIS FNTRY 




02PA 


121 


r>742 


INC SP 




02PR 


Q2 1 


0714-3 


GHI SP .. COPY SP TO MA 




02RC 


ROl 


0744 


PHI MA 




o?pn 


R2l 


0745 


GLO SP 




02PF 


Am 


0746 


PLO MA 




02PF 


ini 


0747 


INC MA .. ADJUST TO SUB-TOP OF STACK 




0290 


io» 


074R 


INC MA 




0291 


3R9RI 


0749 


RNF *+P07 




0293 


401 


0750 


LDA MA .. POPPING INTO AC. GET DATUM 




0294 


RFI 


0751 


PHI AC 




0295 


oni 


0752 


LDN Ma 




02Q6 


AFl 


0753 


PLO AC 




02Q7 


2D» 


0754 


DEC MA 




02°P 


42 1 


0755 


LDA SP .. NOW CLOSE UP THE GAP 




0299 


50 » 


0756 


STR MA 




02QA 


1DI 


0757 


INC MA 




02QR 


02 i 


075P 


LDN SP 
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0P9C 


5D» 


0759 


STR MA 


29D 


1DI 


0760 


INC MA 


099F 


D5 1 


0761 


SEP RETN MA POINTS TO NEW SUR-TOP 


029F 


t 


076P 




029F 


l 


0763 


.. DECIMAL TO RlNARY CONVERSION 


Ut.ir 


l 


0764 


. . ***** ac=decimal numrer of n bytes 




1 


0765 


.. DECIMAL NUMRER = SIGN,NN» . . , . . »Nl ,N0 




t 
• 


0766 


.. SIGNstfOB + 


Ucvr 


■ 


0767 


SIGN-BOD - 


u<;yr 


• 




. N0sl0**0 DIGIT 




t 
i 




. N1-10**1 DIGIT 




i 
i 




**&&&££*** (TO r"ALLi WRTTF) ******* 


29F 


i 


fl77 1 




7.QF 


i • 4> i 
*+r> 1 


0. 77? 


mm 1 riA ! INK firT MUM AnriRP^«; 


2 ft (J 


S A < 


U 1 1 >J 




rt O A 1 

U?A 1 


it i 


0774 


IDA LINK 


U A^ 


A A I 


0775 


PLO AR 


tl #f A »l 


Uft I 
tn' 


0776 


LDA LINK ..GET LENGTH 


OPA** 


FF01 1 


0777 


SMI «01 ..MINIJS SIGN RYTE 


OPAft 


AP 1 


077R 


PLO NR ..AND STORE IN Rr. 


0PA7 


FBOO 1 


0779 


LDI H00 ..CLFAR RF 


02A9 


AFl 


07P0 


PLO AC 


OPAA 


RFI 


07R1 


PHI AC 


OPAR 


OAI 


07RP 


LDN AR ..CHECK SIGN RYTE 


OPAC 


prodi 


07P3 


XRI «0D ..MINUS? 


OPAF 


PR 1 


07R4 


PHI NR ..INTO NR.l 


02AF 


] A I 


07P5 


LOOP! INC AR ..GRAR THF FIRST DIGIT 


02R0 


FP I 


07R6 


SEX SP ..FIX X PNTR 


OPRl 


OA 1 


r»7P7 


LDM AR ..CLEAR HIGH RYTE tFO« ASCII) 


fl ?R? 


FAOF t 


07BP 


ANI «of 


n op ti 


1 £ • 


fl7flQ 


STR SP ,.PIJT IT RACK 


J ^r\r* 


AP 1 

on * 


H7Q0 


GLO AC ..ADD THAT DIGIT TO ACTUM 


O IB £ 

U <'nf) 


r m i 


n 7al 


Ann 






P702 


PLO AC 




OF I 


f>7Q^ 


GHI AC 


02PQ 


-tft ft ft f 

7C 'J 'J 1 




AnrT KDO rfmfMrpr tarry nurn 


PRO 


O C f 

Rr > 


n TOR 


BUT A|" 


ft n n ft 


.)JEr 1 






ft Aft r 

2PF 


t 

**n 1 


n"yo7 

if # m # 


nrr MR ..nrr nifilT rniiNTFR 






07QP 


GLO NR ..SFF IF IT IS 0' 




■*?Fn i 

<i r 11 t 


07OQ 


R2 FINAL ,.YE5» THEN DONE 


n or ? 


PF > 


0R0n 


GLO AC ..OTHERWISE MULTIPLY THE ACC nY 10 




FF 1 


op.oi 


SHL 


OPCU 


73 1 


0R0? 


STXD 


0PC5 


PFl 


0P03 


GHI AC 


0PC6 


TFl 


OP.O^ 


SHLC • .CARRY 0VFR 


o?r7 


731 


0P05 


STXD 


02C« 


33FD 1 


0PC6 


RDF OVFLW-ttO? ..EXCEEDED ACC LIMIT 


02C A 


FRCP 1 . 


OR07 


LDI 802 


02CC 


Fl? 1 


OROR 


MPY3I STR SP ..LOOP COUNT 


02rn 


PFI 


0R09 


GLO AC 


OPCE 


FFI 


0R1 


SHL ..NOW SHIFT AC OVER U TIMpS MORE 


OPCF 


AFl 


0R11 


PLO AC 


OPDO 


9FI 


0R1P 


GHI AC ..SAME FOR AC. 1 


02m 


7F» 


PR13 


SHLC 


0?n? 


PFI 


0R1U 


PHI AC 


0PD3 


33EDI 


0R1 5 


RDF OVFLW- HO 2 ..IF OVFLOWr RFSFT STACK 


0PD5 


OPl 


0R16 


LDN SP . . CHECK LOOP COUNT 


206 


3?nr i 


0R17 


RZ MPY10 ..AFTER MULPLY BY 8 


OPOfi 


FF01 I 


0R1R 


SMI HOI ..OR ELSE DEC LOOP COUNT 




I 
I 
I 
I 
I 
I 
I 



I 
I 
I 
I 
I 
I 

I 
I 
I 

[! 

11 
P 



AnnonHiv RUM 










02DA 


30CC 1 


QR1Q 


BR MPY3 ..BACK FOR MORF ADDITION 


020c 


l?l 


0P?0 


MPYlOl INC SP . .RECOVFR LOOP COUNT 

• 


o?dd 


OFI 


0A21 


GHI AC . . ADD HIGH RYTp 


o?of 


FUi 


0A22 


ADO ..ADD 8ACC TO 2 ACC 


02DF 


RF| 


0P23 


PHI AC 


0?F0 


33FF 1 


0A24 


RDF OVFLW-tfOl ..RESULT DF IF OVFLOW 


0?F? 


l?i 


PP25 


INC SP ..RESET STACK PNTR 


0?f3 


af i 


0B26 


GLO AC ..SAMF FOR AC.O 


02FH 


Fa t 


0P27 


ADD 


02FS 


AFi 


0P?fl 


PLO AC 


0?F6 


QFl 


0A?Q 


GHI AC . • FOR CARRY OUT 


0?F7 


7r00i 


CP30 


ADCI WOO 


o?fq 


BFl 


0P31 


PHI AC 


02FA 


3RAF I 


A3? 


RNF LOOP ..IF NOT OVFLW, GO RACK FOR MORF 


o?fc 


CA 1 


r A33 


LSKP ..SKIP STACK RESET 


0?Fn 


1?l 


0P3U 


INC SP . . RFSET STACK PTR 


P?FF 


1? 1 


CA35 


TMC SP 


0?FF 


ns« 


0R36 


OVFLWJ SFP RFTN ..DFsl 


0?F0 


OF 1 


CR37 


FINAL! GHI AC . .CHFCK IF FXCEFD M A X POS NUM 


0?F1 


FC AO 1 


0R3R 


ADI «R0 


02F3 


3 AFC 1 


CA3P 


RNZ CP ..IF NOT P SSIRLF» SKI° 


02FfJ 


AFI 


PAUO 


GLO AC 


2F6 


3 aft i 


OfiM 


RNZ CP ..IF NOT» GO TO COMP 


02FR 


OB 1 


0AU2 


GHI MR . . SFF IF IT IS POSITIVE 


0?FO 


FTFF 1 


0AU3 


ADI 6FF ..SET DP ACCORDINGLY 


02FP 


o<si 


ripau 


SEP RETN i 


0?FC 


^3FB» 


OPUR 


CPt PDF *-»01 ..OVERFLOWED! 


0?FF 


PR » 


0PU6 


GHI NR . .TEST FOR SIGN 


0?FF 


3A0QI 


0RU7 


RNZ EXIT ..IF POS# DONE 


0301 


AFI 


ORUA 


GLO AC ..IF MEG » S 1 IRTR ACT FROM 


030? 


FOOOl 


ORUQ 


SOI H00 


0^0^ 


AFI 


0A50 


PLO AC 


0305 


or i 


OAS! 


GHI AC 


07,06 


i 


0AR2 




030ft 


7D"0i 


0ft53 


SDBI WOO 


0308 


PFl 


OPSu 


PHI AC 


030° 


I 


oa«;s 


• * 


030O 


1 


0B56 


BINARY TO DECIMAL rONVFRSION 


030Q 


t 


OAS 7 


****DFCIMAL NUMRfR = AC 


3nq 


1 


OASR 


.. DECIMAL NUMBER 3 SIGN»NNf . . . „ . »N1,N0 


030Q 


1 


0A5° 


.. SIGNiiSOB + 


03OQ 


4 


OR60 


.. SI6N=«0D - 


030Q 


I 


0R61 


.. N0=10**0 DIGIT 


30Q 


t 


0A62 


.. Nl=10**l DIGIT* ETC 


030Q 


I 


0A63 


.. ********* (TO CALL* WRITE) ******** 


030° 


1 


0A6^ 


****** CALL CRDI » A (NUMBER) 1 r LENGTH 


30Q 


n«5» 


0A65 


EXIT! SEP RETN 


30 A 


1*6 1 


0R66 


CRD 1 LDA LINK ..GET THE ADDRESS 


030R 


RA 1 


0A67 


PHI AR ..AND STORE IN RA 


03OC 


Ufii 


0P6A 


LDA LINK ..SAMF FOR LOW BYTE. 


030D 


A A 1 


0P6Q 


PLO AR 


030F 


U6I 


0A70 


LDA LINK ..GET LENGTH 


30F 


FF01 1 


0A71 


SMI 801 ..SUBTRAC FOR SIGN BYTE 


0311 


ARI 


OR 7? 


PLO NR ..STORE IN NR.O 


031? 


RBI 


0A73 


PHI NR ..AND NR.l 


0313 


FROFi 


0A74 


LDI «0F . .NUM OF ITERATIONS 


031«S 


AD 1 


0A7S 


PLO MA ..STORE IN MA.O 


0316 


OFI 


0R76 


GHI AC ..TEST FOR SIGN 


31 7 


FFI 


0R77 


SHL 
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31 P 


F80H • 


U n / o 


i ni tinn tp nF-rii IT I*; P0<^ 


031 A 


3R29 1 


n *T n 

0R79 


BNF P05 • « 


031 C 


RF J 


rt o o n 


ci n nrnrowTep rnwuMT TT Tf) pn? 
bLO AC i iUI ntftwiar. LUiivr-n I -ii »u rus 


051 D 


FD00 1 


n a a 4 

UPnl 


CftT Mnn 

bul PUU 


7>1 F 


AF J 






U Oar D 


Hp 1 


0BP3 


GHI AC 


u o<** J 


f Li' ) U l 








or i 


0PRR 


PHI AC 




FR0O 1 


0PB6 


LBI «0D ..MINUS SI6N 


3? 6 


CR 1 


0PR7 


L5KP . . 


327 


FR00 1 


0RPB 


LHI BOO 


032° 


R A 1 


0R89 


POS! STR AR ..PUT IT IN SIGN RYT 


032 A 


RP | 


0RO0 


GL0 NR . . CHFCK DIGIT COUNTER 


rt3?R 


3?3?» » 


0A°1 


RZ L00P1-H12 ..GO RACK FOR MORF ITERATION 


03?D 


1 A 1 


0RQ2 


INC AR ..GO TO NEXT DIGIT 


032E 


2R » 


0RQ3 


DFC NR ..DEC DIGIT CNTR 


032F 


3 n 9 7 i 


PRQ4 


BR P05-«02 ..GO BACK rOR MORF CLEAR 


n ^ 1 


ri 1 


CP Q 5 


SEX SP 


i. j 


9R 1 


npaft 


GHI NR ..PESFT DIGIT rNTR 




An i 


0RQ7 




p *^^u 


o c • 
rr J 


flnnO 

f j n *•* o 


1 OAP1 • fit O AT CHTFT RTT OF AT OUT 


1) Vln 


re f 

f r I 




CHI 




n r 1 




pi d Ar 

r LU At. ( 




OF 1 


090 1 


GHI AC 


0^3 A 


7F I 


090? 


SHLC • • SAMt p OR AC • 1 




RF 1 


0903 


PHI AC 





A I 


1 1 LJ (J 1+ 


1 r\ M AS 

LD fs J AR t 


U *35R 


7C 00 1 




APirT won Ann to i owp^t riTi^TT 






L lu lu 


5TR AR 


n TTr 

u jt 


Q Pi 1 


U M ' 








p qq p 


RNZ *+HD3 ..CONTINUF IF MORF ITERATION 




nt: t 
U i 1 




run! ^FP RFTN 




n a i 


0°1 


NEXT! LDN AP ..LOAD DIGIT 


0?S43 


7F t 


nail 


SHLC ..SHIFT LEFT OVER ONCE 


34U 


RA 1 


0Q1 2 


STR AR ..PUT IT RACK 


345 


FF0A » 


0QJ 3 


SMI HCA ..NEED TO INC NEXT DIGIT? 


0347 


3R4 A 1 


0Q14 


RNF *+H03 ..SKIP IF NOT>10 


0349 


RA 1 


091 R 


STR AR ..ELSE UPOATE DIGIT 


34 A 


?A 1 


001 1 


DEC AR ..GO TO NEXT DIGIT 


34R 


2R 1 


0Q17 


DEC NR ..DEC DIGIT COUNT 


3Uf 


AR | 


OQl R 


GLO NR ..CHECK IF 0? 


P 34 


3 A4 ? J 


f) q] q 


RNZ NEXT ..IF N0T» DO THE SAMF FOR NEXT DIG 


34F 


3341 1 


0q?0 


RDF END . . OVERFLOWED 






0921 


DFC MA ..DEC NO OF SHIFTS 




on l 


0922 


GHI NR ..RESET ADDRESS PTR 


03R3 


^?» 


oq?3 


STR SP . .PUT DIGIT ON STACK 


3R4 


PA» 


P924 


GLO AR 


03S5 


F4 l 


0925 


ADD 


03RA 


A A 1 


PQ26 


PLO AR 


03R7 


OA I 


PP27 


GHI AR 


035R 


7roo i 


0°2R 


ADCI WOO 


35 A 


PA 1 


092Q 


PHI AR 


03RR 


303? I 


0Q30 


RR LOOP1-&02 


03 SO 


1 


0931 


FND li 



I 

I 

I 



Sample Program 
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Appendix C - 
Sample Program 



A sample program to demonstrate the use of the 
Arithmetic Subroutine Package is. given in this appendix. 
This program accepts two input parameters-PRICE and 
OUND, calculates the PRICE-POUND product (TO- 
TAL), and outputs TOTAL after rounding and truncation. 

The input parameters are in BCD form and a maximum 
of four digits is allowed. A decimal point is also assumed 
on the left of the second least significant digit, i.e., 
00.00 < PRICE, POUND < 99.99. 

These parameters are then converted into binary 
numbers and TOTAL is calculated by multiplying PRICE 



and POUND in binary. This binary product is divided by 
100 to eliminate the last two decimal digits of the 
eventual BCD TOTAL. If the remainder of the division is 
greater than fifty, one is added to the 16-bit quotient (for 
rounding purposes). This latter is then converted back 
into BCD form. 

Note that since the binary-to-BCD routine is designed 
for 16-bit conversion only, an overflow condition will 
occur if TOTAL is greater than 327.67. The DF flag sets 
if overflow occurs. 



PRICE 8CD in MEM 
-»-PRICE BIN in R(AC) 



Call SUB COB 



i 



TOTAL B(N in R(MQ|; R(AC) 
/lOO-io TOTALgj'j in 
R{AC};truncated digits in 
R(MOI 



Call SUB DIV 



Sav. PRICE in R(AC) 
j- Stack 



Call SU8 PUSHAC 




Yes 



POUND 8CD in MEM 
POUNDbim in R(AC) 



Call SUB COB 



Round Up 
TOTAL BIN 



Set Address Pu. RiMA) 
Pointing to PRICEgifg 
on stack 



Yes 




Pop Off 
100 10 constant 
on stack 



PRICE BIN in MEM * 
POUNO B | N in RIACI 
_». TOTAL B | N in RIMOI; 
RIACI 



TOTAL B , N in R(AC) 
— *- TOTAL Bco in MEM 



Call SUB CeD 



Load Constant 100 10 
onto stack, set RIMA) 
Pointing to tne constant 



T 



Call SUBMPY 




Flow chart of sample program. 



92CS - 28084 
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0215 
0215 
0216 
0218 
021A 
021 B 
021 B 
021B 
021B 
021C 
021 E 

021 E 
021F 
0221 
0223 
0223 
0224 
0224 
0224 
0224 
0225 
0226 
0227 
0227 
0228 
022A 

022 A 
022 A 
022 A 
022 B 
022C 
022 C 
022 E 
022 F 
0230 
0232 
0233 
0234 
0235 
0236 
0237 
0239 
023B 
02 3B 
023B 
023B 
023C 
023E 
0240 
0240 
0241 . 
0241 
0241 
0242 
0243 
0243 
0244 
0246 
0248 
0249 
0249 



D4; 
076E; 
027 D; 
05: 



D4; 
06E9; 

D4; 

076E; 
0232; 

05; 



82; 

AD; 

ID; 

04; 
0475; 



12; 
12; 

F864; 

52; 

22; 

F800; 

52; 

82; 

AD; 

22; 

D4; 

051 E; 

334 A; 



8E; 

FF32; 

3B41; 

IF; 



12; 
12; 

D4; 
0645; 
0287; 
T6; 



0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 

0089 LAB1: 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 



SEP CALL . . DO DECIMAL TO BINARY CONVERSION 
.A(CDBI .." 

,A(PRICE) . . CONVERT PRICE INTO BINARY 
,#05 . . PRICE IS 5 CHARS LONG 

... AC NOW CONTAINS BINARY VALUE 
. . OF PRICE PER POUND 

SEP CALL . . PUSH CONTENT OF AC INTO STACK 
.A(PUSHAC) . . " 

SEP CALL . . DO DECIMAL TO BINARY CONVERSION 
,A(CD8) . . " 

,A(LBS) ..CONVERT QUANTITY (LBS) 

. . . INTO BINARY 
.#05 . . QUANTITY IS 5 CHARS LONG 

. . AC NOW CONTAINS BINARY VALUE 

. . OF QUANTITY (LBS) 

GLO SP . . COPY STACK POINTER TO MA 
PLOMA.. " 

INC MA . . POINT TO AC. 1 



SEP CALL 
,A(MPY) . . 



DO THE MULTIPLICATION 



. . DIVIDE BY 100 TO REMOVE LAST TWO 
. DECIMAL DIGITS 



INC 
INC 

LDI 

STR 
DEC 
LDI 
STR 
GLO 
PLO 
DEC 



SP 

100 

SP 
SP 
00 
SP 
SP 
MA 
SP 



MOVE SPTWO BYTES 
, . BELOW TOP OF STACK. POP PRICE 
. OFF STACK 

LOAD 100 INTO STACK WITH 

. SP POINTING TO THE HIGH BYTE 



. . COFY STACK POINTER TO MA 
. . POINT TO HIGH BYTE OF 100 
. . POINT TO FREE SPACE 
SEP CALL 

'.A(DIV) . . DIVIDE PRODUCT BY 100 
BDF LA33 . . IF OVERFLOW GO TO LAB3 

. . . CHECK IF REMAINDER IS GREATER 
. . . THAN 50. IF SO. ROUND UP 
GLO MQ . . MQ CONTAINS THE REMAINDER 
SMI 50 

BNF LAB1 .. IF NO ROUND UP 

... GO TO LAB1 
INC AC . . IF ROUND UP ADD 1 TO 

. . . THE LEAST SIGNIFICANT DIGIT 

INC SP . . MOVE SP DOWN TWO BYTES 
INC SP . . . BELOW TOP OF STACK 

SEP CALL . . DO BINARY TO DECIMAL CONVERSION 
.A(CBD) .. " 

,A(TPR) . . CONVERT TOTAL PRICE INTO DECIMAL 
,#06 . . TOTAL PRICE IS 6 CHARS LONG 

. . TOTAL PRICE IS STORED IN M(TPR) 



Partial assembly-language listing of the calculation subroutine. 



